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PREFACE 


This manual describes how the user can compile and execute COBOL 
programs under Level 64 GCOS. 


This manual complements the Level 64 COBOL Reference Manual. The 
Reference Manual contains formal specifications of COBOL. The User Guic 
on the other hand, discusses those aspects of COBOL whose implementatix« 
in Level 64 needs further explanation. It also discusses certain oper- 
ational aspects such as the JCL and utilities needed to input, compile, 
link, execute and debug COBOL programs. In discussing these aspects 
there are some areas of overlap with the Job Control Language Reference 
Manual, Job Control Language User Guide, Library Maintenance Reference 
Manual and Library Maintenance User Guide. The programmer is cross 
referred to these manuals for details when necessary. 


Certain self contained COBOL topics are not discussed in this manual 
because they are the subject of separate manuals. These topics are: 


- I/O using the UFAS, BFAS and HFAS file access systems. 
- Data base processing using IDS/II. 


- Communications and transaction driven programming using TDS/64 
and VCAM. 


This manual is divided into two parts. Part 1 describes the develop- 
ment of a coded COBOL source program into a working load module. 
Section I describes methods of introducing source programs 

into a Level 64 system and maintaining source programs in a disk 
library. Sections II and III describe the compilation and linkage of 
COBOL programs. Section IV describes debugging techniques and gives 
hints on how to deal with abnormal program terminations. 


Part 2 of this manual discusses COBOL program interfaces with the 
system; programming techniques are described which lead to efficient 
use of the system. Section V discusses the representation of data in 
memory. Section VI discusses calling and called programs. Section VII 
discusses segmentation for Level 64 Virtual Memory Management. 
Section VIII describes various programming techniques for reducing 
the size and increasing the execution speed of COBOL programs. ~ 
Section IX discusses various general aspects of file usage. Section xX 
describes the standard record formats accepted by Level 64 Data 
Management. Section XI describes the use of unit record files. 
Section XII contains a number of miscellaneous programming topics. 


The reader of this User Guide is assumed to be familiar with the 
Level 64 COBOL language and with the basic functions of the Level 6 
GCOS Operating System and JCL. 
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The reader of this User Guide is assumed to be familiar with the 
Level 64 COBOL language and with the basic functions of the | 
Level 64 GCOS Operating System and JCL. The following manual may 
be used as background material: 


- System Overview Manual, Order No. AQ98. 


The following manuals should be referred to in conjunction with the 
present manual: 


- COBOL Language Reference Manual, Order No. AQ64 


- Error Messages and Return Codes Manual, Order No. CQ31 


The following notation conventions are used in this manual when 
describing the syntax of JCL and COBOL: 


UPPERCASE “The keyword item is coded exactly as shown. 
lowercase Indicates a uSer-supplied parameter value. 
[item ] An item within square brackets is optional. 
iteml A column of items within braces means that one 
item2 value must be selected if the associated 
item3 parameter is specified. 
Note the way in which underlining is used in COBOL 
and JCL syntax descriptions. An underlined word in 
COBOL syntax descriptions is a word which must be 
used. An underlined parameter in JCL syntax 
descriptions is the parameter assumed if none is 
specified. 
( ) Parentheses must be coded if they enclose more 
than one item. 
ee An ellipsis indicates that the preceding item may 


be repeated one or more times. 


Each section of this document is structured according to the heading 
hierarchy shown below. Each heading indicates the relative level of 
the text that follows it. 


Level Heading Format 

1 (highest) ALL CAPITAL LETTERS, UNDERLINED 

2 Initial Capital Letters, Underlined 

3 ALL CAPITAL LETTERS, NOT UNDERLINED 

4 Initial Capital Letters, Not Underlined 


5 (lowest) ALL CAPITAL LETTERS FOLLOWED BY COLON: 
Text begins on the same line. 


The Level 64 Document Set follows. Many of the manuals may be 
referenced in the text. 
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Order 
Number 
AQ02 
AQO3 
AQ04 
AQ05 
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AQ63 
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AQ64 
AQ65 
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AQ67 
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AQ83 
AQ84 
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AQ90 
AQ92 
AQ93 
AQ94 
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CQ31 
€Q35) 


LEVEL 64 DOCUMENT LIST 


Title 


Series 100 Program Mode Operator Guide 
Series 106 Conversion Guide 

Series 200/2000 Conversion Guide 

System 360/370 Conversion Guide 

System Management Guide 

Job Control Language (JCL) Reference Manual 
Job Control Language (JCL) User Guide 
System Operation Operator Guide 

System Operation Console Messages 

Operator Reference Manual 

Data Management Utilities Manual 

Series 200/2000 Program Mode User Guide 
Series 200/2000 Program Mode Operator Guide 
Series 100 File Translator 

Series 200/2000 File Translator 

Library Management Manual 

System 3 Conversion Guide 

Network Control Terminal Operation Manual 
Terminal Operations Manual 

Program Checkout Facility Manual 
Communications Processing Facility Manual 
TDS/64 Standard Processor Site Manual 
TDS/64 User Guide 

7TDS/64 Processor Programmer Reference Manual 
Unit Record Devices User Guide 

COBOL User Guide 

Interactive Operation Facility 

COBOL Language Reference Manual 
FORTRAN Language Reference Manual 
FORTRAN User Guide 

FORTRAN Mathematical Library 

RPG Language Reference Manual 

RPG User Guide 

Series 200/2000 COBOL to Level 64 COBOL Translator 
IBM COBOL Translator 

File Translation Manual 


BFAS User Guide 

HFAS User Guide 

UFAS User Guide 

Sort/Merge Manual 

Catalog Management Manual 
Library Maintenance User Guide 
I-D-S/II User Guide, Volume 1 
I-D-S/II User Guide, Volume 2 
COBOL Reference Card 
Operator’s Reference Card 

RPG Reference Card 
FORTRAN Reference Card 
System Overview Manual 

Error Messages and Return Codes Manual 
Remote Batch Facility 
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SECTION I 


INPUT AND MAINTENANCE OF SOURCE PROGRAMS 


The COBOL compiler accepts input from a sequential file (usually an 
input enclosure) or a library member. Input enclosures and library 
members are both subfiles, but input enclosures are handled by the 
uSer as sequential files. The compiler can also read input from 
other sequential files e.g. tape files. An input enclosure must be 
part of a batch job. A library member, however, may be created or 
updated during a batch job, or during an interactive job run via the 
Interactive Operation Facility. If a library member is created it 
may be updated later using Library Maintenance facilities. 


The use .of input enclosures, libraries and files for source programs 
is discussed in the following paragraphs. 


INPUT ENCLOSURES 


The use of an input enclosure as direct input to the compiler is 
shown in the following example. 


$JOB eee 

COBOL SOURCE = *PROGI, CULIB = RES.CULIB3 
SINPUT PROGI 3 

000100 INDENTIFICATION DIVISION. 

000200 PROGRAM=ID. PROGI. 


SENDINPUT$ 
SENDJOB3$ 


In this example the input enclosure is held in SARF format (TYPE = 
DATA is the default option on the SINPUT statement). SARF format is 
described in Section X. | 


It is recommended that where possible the same name be used 
throughout program development for the following 
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- Input-enc losure-name. 
~ Program-name in the PROGRAM-ID of the. IDENTIFICATION DIVISION. 


- eae eau nd tonal (taken by the compiler from the program 
name). 


-~ Load-module-name 


This minimizes any confusion that may arise from having several 
names for the same program at various stages of development. In the 
above example the program name and input-enclosure-name are both 
PROGI. The compiler will generate a compile unit of the same name 
even if the input enclosure name is different. 


SOURCE LIBRARIES 


Using an input enclosure in the above manner means that the source 
program must be re-read from cards each time the compilation is 
executed. To avoid this the source program may be loaded into a 
library. The program may then be repeatedly updated and compiled 
without being re-read from cards. The use of libraries is discussed 
in the following paragraphs (for more details refer to the Library 
Maintenance User Guide). 


Creating a Library Member from Cards 


The Tollowing example shows the use of the utilities SLIBALLOC and 
SLIBMAINT to create a library named SL.LIB containing source 
language members PROG] and PROG2. An input enclosure is used 
containing a S$LIBMAINT MOVE command and the source program. This 
input enclosure is read by SLIBMAINT. 


$ JOB eee . 

LIBALLOC SL, (SL.LIB, SIZE = 5),MEMBERS = 100% 
LIBMAINT SL, LIB = SL.LIB, COMFILE = *SLENC$ 
SINPUT SLENC3$ 

MOVE COMFILE 8 PROGI,TYPE = COBOLX$ 

QOOTOO IDENTIFICATION DIVISION. 

Q00200 PROGRAM-ID. PROGI. 


7/E0D 

MOVE COMFILE # PROG2, TYPE = COBOLX3 
OOO1OO IDENTIFICATION DIVISION, 
Q00200 PROGRAM=ID. PROG2. 


77EOD 
SENDINPUT$ 
SENDJOB$ 
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The SLIBALLOC utility will set up a library, SL.LIB, with a size oft 
5 cylinders (this utility need not be used if the library already 
exists). The MOVE command of the $LIBMAINT utility will then create 
two library members, PROGI and PROG2, each containing one. of the 
programs in the input enclosure. 


The TYPE = COBOLX option in the MOVE command indicates that the 
sequence number and card identifier fields will not be included in 
the library member text. The use of this option is disc'tssed ina 
later paragraph. 


The following paragraphs explain how to create a library member 
using the EDIT command of $LIBMAINT under the control of the 
Interactive Operation Facility. Note that the EDIT command can be 
used in a similar way to create a library member from cards in a 
batch job. See the Library Maintenance User Guide for details. 


Creating a Library Member Interactively 


The Interactive Operation Facility (IOF) may be used to create a 
source language library member during an interactive job. IOF does 
not use input enclosures. Instead the source language is entered 
under the control of the $LIBMAINT command EDIT. 


The following example illustrates the use of the EDIT command at an 
interactive terminal. Program PROG! is entered under the control of 
the EDIT command, and then written to an existing source library 
SL.LIB. Sequence numbers are generated in the SSF headers (RENUMBER) 
and. the program is printed (PRINT). A detailed description of this 
process is given below. | — 


St: SJOB... 

St: LIBMAINT SL, LIB = SL.LIB3 

>>> 09828 LIBMAINT 20.04 21 | 
Cs EDIT3 

Rs A 

I: [IDENTIFICATION DIVISION, 

It PROGRAM-ID. PROGI. 


e 


F 
Rs W (CBX) PROGI 
R: Q 
Cs RENUMBER PROGI 3 
Cs PRINT PROGI3 
O00010 IDENTIFICATION DIVISION. 
000020 PROGRAM-ID. PROGI. 


Ce: QUIT 
<<< 09230 | |_| 
S3 


The prompt S*? is output by the system. Following this prompt the 

user can enter any JCL statement at the job enclosure level. When 

the SLIBMAINT statement is ent*red, S$LIBMAINT ouputs a heading (>>> i 
etc.), containing the time, followed by the Ct prompt which invites 
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the user to enter a SLIBMAINT command. The user then enters the ENIT 
command after which SLIBMAINT outputs the Rt prompt. This invites 
the user to enter an EDIT request. The user enters an annend data 
request (A) after which $LIBMAINT outnuts the It prompt. This 
invites the user to enter input data until the escape sequence is 
encountered. The user then enters the source program. When the user 
enters the F sequence $LIBMAINT again ouputs the Rt prompt and 
Waits for a request. The response "W (CBX) PROGI" requests that the 
source program just entered be written to a library member named 
PROG!I. The Q request then terminates the EDIT session. S$SLIBMAINT 
outputs the Ct prompt and waits for a new command . 


The (CBX) option used in the W request is equivalent to the sYPE = 
COBOLX option in the MOVE command discussed earlier. Using this 
option the line sequence numbers are not entered (but the indicator 
area is entered). They must be yenerated after input by using the 
command RENUMBER PROG], as shown in the example. This command 
generates a sequence number in the SSF header of each record (see 
Section X) but does not insert a sequence number into the COBOL 
text. 


The new member is then printed using the PRINT PROG! command, and 
SLIBMAINT execution is terminated by a QUIT command. SLIBMAINT 
outputs the time (e.g. 09%30) immediately before terminating. The 
system then outputs-an St prompt and the user may enter further .ICI. 
statements at the job enclosure level. 


UPDATING THE SOURCE MEMBER 


A source program can be updated in a hatch job using the SLIBMAINT 
command UPDATE. This command allows the user to insert, replace or 
delete specific lines which he identifies by giving the line 
sequence numbers. If more complex alterations are to be made to the 
member (e.g- Search for a character string and replace by another 
string) the EDIT command should be used. 

The UPDATE command is normally used with an input enclosure 
containing program updates. Since input enclosures are not used bv 
the Interactive Operation Facility, the EDIT command should be used 
when Updating source programs interactively (it may also be used in 
batch mode). 


A full description of the use of the UPDATE and EDIT commands is 


User Guide. 


COBOL REFERENCE FORMAT 


The COBOL reference format describes the line of COBOL text in terms 
of character positions in a record on an input medium. The ANS 
standard is shown in Table I-l. 
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Table t-!. COBOL Reference Format 


| a 


a— 


12 to the 
end of 
the record 


The length of area B depends upon the actual record length of the 
storage medium used for the program and whether the optional eight 
character card identifier area is included. (The traditional card 
identifier area is not part of the ANS standard and is therefore not 
mentioned in the COBOL reference format). 0n all storage media 
except cards the sequence number area can optionally be excluded 
from the record. The use of the: sequence number area and the card 
identifier area can be controlled by specifying the language type of 
the COBOL program, and by using the CARDID or NCARDID parameters of 
the SCOBOL statement. 


The use of the COBOL reference format with the language types DATA, 
COBOL, COBOLX, and DATASSF for punched cards, library member records 
and interactive terminal lines is discussed in the following. 
paragraphs. 


NOTE The meaning of the term "record format" will be limited to 
that used in Section X, Standard. Record Formats. The term 
“text format" will be used in the following paragraphs to 
refer to the format of the COBOL source text (with. or without 
sequence number area or card identifier sarea) in a library 
member record. 


Punched Card Format 


A program may be punched onto cards in one of the formats shown in 
_ Table 1I-2 (unless the CONTCHAR option is used in the $INPUT 
statement ~ see below). 
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Table 1-2. Punched Card Formats 


[senate for [eons | tea fr 
de Sequence number area | 1-6 | Sequence number area 


On punched cards the sequence number area must always be present. 
However, the card identifier area may be excluded, in which case 
area B extends to column 80. 


The way in which a program on punched cards is processed from an 

input enclosure is controlled by the TYPE parameter of the SINPUT 
statement 3 

DATA 

TYPE = °<COBOL 

| Senet 


The Stream Reader will copy each card in the input enclosure to a 
temporary subfile of the system file SYS.IN according to the rules 
shown in Table 1-3. Subfiles in the system file SYS.IN are known as 
"SYSIN subfiles". 


Table 1-3. Format of SYSIN. Records 


TYPE parameter Format of record 


Card: columns 


in $INPUT in SYSIN copied to 
statement (see Section X) SYSIN 
COBOL SSF  F=80. 
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If the input enclosure is read directly by the compiler (via SYSIN) 
the last eight. columns will be ignored, unless the NCARDID option is 
specified (see Section II,. Compilation). If however, the source 
program is moved to a library by SLIBMAINT, columns 73-80 should be — 
removed from each record (see below), in which case the compiler 
will treat the last eight columns of the resulting record as COBOL 
text. 


An input enclosure containing a source program to be moved to a 
library will contain SLIBMAINT commands in addition to the source 
program. In order to preserve the first 6 columns. of such commands 
the TYPE parameter of the S$INPUT statement should not speci fy COBOL. 
It is recommended that the TYPE parameter be omitted from the S$INPUT 
statement, in which case a TYPE.of DATA will be assumed. 


The text format of library member records is disscussed in the 
following paragraphs. 


The card formats shown above do not apply when the CONTCHAR option 
of the SINPUT statement is used. This option requests the Stream 
Reader to concatenate the data held on several cards wherever a 
continuation character (-) is encountered as the last non-blank 
character on a card. When the option is used, area B extends 
throughout every continuation card up to column .80. of the last . 
continuation card in a record (or column 72 if the card identi fier 
area is present). The sequence number area, indicator area and area 
A only occur in the first card of a record. See the Job Control 
Language Reference Manual for more details. 


Library Member Text Format 
COBOL text in a library member record is held in one of the formats 
shown in Table 1-4. (Library member records are variable length, 


therefore the last character position given ZOE area B or the card 
identifier area is a maximum value.) 
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Table 1-4. Library Member Record Formats 


With sequence With card-id | Neither area 
number area and area only ( language 


card-id area ( language type COBOLX) 
(language type type COBOL) 
DATASSF ) | 


| Character Used Character Used | Character Used 
positions |. for positions for positions for 
| sequence 

number 

area 


position 1/2 position 6 position 6 
to 8 to 8 to the end 
positions positions of the. record 
before the before the (i.e. area B 
end of the end of the | can extend 
record (i.e. record (i.e. 
area B can area B can 
extend up to extend up to 
character character 
position 247 position 247) 


Last 8 Card Last 8 
Characters iden- Characters 
tifier 


The text format of a library member is specified when the member is 
created by the TYPE parameter of the MOVE command or the W request 
of the EDIT command (see TYPE = COBOLX and W (CBX) PROG! in the 
above examples). The values which can be specified in the MOVE 


command and W request and which are applicable to COBOL programs are 
shown in Table 1-5. 
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Table 1-5. Language Types of COBOL Programs 


TYPE parameter Type parameter of 
of MOVE command W Request 
Cie ee language type) 


DATASSF 


COBOLX 


The effect of using these parameters is shown in Table 1-4. 


It is recommended that the same language type be used for all COBOL 
library members in the user’s installation. This avoids any 
confusion that might arise concerning the text format of programs 
which the user intends to update. The recommended language type is 
COBOLX. It has the following advantages 3 


- The sequence number area is removed from the COBOL text (it Is 
stored in the SSF header).:This means that the user does not 
have to space over a redundant sequence number area when 
updating the program at an interactive terminal. 


~ The card-identifier area is removed. This area is redundant 
after the program has been stored in a library. The retention 
of a card~identifier area in library member text can lead to 
confusion when updating the program (e.g. when the SUBSTITUTE 
request of S$LIBMAINT EDIT is used). 


~ All trailing spaces to the right of the COBOL jvext are 
suppressed in each library member record (this is not the case 
with DATASSF). This fact, together with the suppression of the 
sequence number area and card-identifier area results in a 
compact record which occupies a minimimum of disk space. 


If, as recommended, the COBOLX language type is used for the library 
member, the language type should not be specified in the $INPUT 
statement of the input enclosure to be read by $LIBMAINT (TYPE = 

DATA will be assumed). COBOLX should be specified in the TYPE 

ash Sancti of the MOVE command or in the.W or Z request of the EDIT 
command. 


It is recommended that a sequence number be present if the’ source 
program is input from cards. This number will be included in the SSF 
header when the cards are moved to a library member by SLIBMAINT, if 
the language type of the member is COBOL or COBOLX. The compiler, 
unless asked not to, will check that these numbers are in non 
descending sequence and will report any descending sequences. 


The programmer can also refer to sequence numbers in the SSF headers 


when updating a library member using the EDIT or UPDATE commands. If 
required, the source program can be given a set of sequence numbers 
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on input by means of the NUMBER option of the MOVE command. However, 
if this {s done the compiler will not be able to check the original 
sequence of the card deck (this should be done via the CHECK 
parameter of the MOVE command). An existing library member can be 
given a new set of sequence numbers at any time by means of the 
RENUMBER command. 


Interactive Terminal Line Format 


The format of a line of COBOL text entered under the EDIT command at 
an interactive terminal is the same as that shown in Table 1-4 
except that the size.of area B is determined by the number of 
characters entered by the user on one line (including continuation 
lines if the continuation character (~) is used). 


The COBOL lines (updates or original programs) should be entered in 
exactly the same text format as they are to be held in the library 
member record. That is, if a language type of COBOLX is being used, 
the first character in the line is the indicator area, and area B 
extends to the end of the line 3 the program or updated text should 
be written to the library member with a W or Z request which 
specifies language type CBX. 


SOURCE FILES 


In addition to the library members mentioned above, the user can 
store source programs on sequential files. These files can be 
generated using the SCREATE or SLIBMAINT utilities and can be read 
directly into the compiler by using the INFILE parameter of the 
SCOBOL statement. 


On the other hand the program may already exist on a sequential 
file. For example, the program may have been written to a 
sequential file by a program generator, or the program may have been 
dumped from a library to magnetic tape at a different installation 
for compilation at the user’s installation. These files can normally 
be read directly into the compiler using the INFILE parameter. 
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SECTION II 
COMPILATION 


This section describes the use.of the COBOL compiler. The necessary 
JCL and the output of the compiler are described in detail. 


JOB CONTROL LANGUAGE 


The extended JCL statement SCOBOL is used to execute the COBOL 
compiler. The compiler will normally generate a compile unit and 
listing. The compile unit can be stored in a temporary file or ina 
permanent library. The linking and execution of the program must be 
requested by the user in subsequent job steps. The listing can also 
be stored in a temporary or permanent library or file. 


Figure 2-1! shows the format of the SCOBOL statement. Note that the 
parameters which are underlined in Figure 2~! are the default values 
assumed by the compiler when no alternative parameter is chosen. 

For example, if the NCKSEQ parameter is not specified in the SCOBOL 
statement the CKSEQ parameter will be assumed by the compiler. 
Default parameters are therefore redundant in the SCOBOL statement. 
However, they may be used in cenjunction with the COMFILE parameter 
when serial compilation of a set of source programs is being carried 
out. In such a case they may be used to override the parameters in 
the SCOBOL statement. See the Alter Facility, below. 
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COBOL 


“SOURCE = *input-enclosure-name 
tia aale eile at pens \ 
eCOMFILE = (sequential—file-description) 


SOURCE = member-name 
INLIB = (iipeaeyet ilesdescrivtica) 
») INLIBI 
INLIB2 
INLIB3 
*input-enc losure-name \ 
eCOMFILE = (sequent ial-file-description) 
SQURCE = (member—name[,member-name)...) 
INLIB = (library-file-description) 
» )INLIB! 
JINLIB2 
INLIB3 


SOURCE = (“’asterisk-name’[,“asterisk-name’]...) 
INLIB = (library~file-description) | 
» )INLIBI 
INLIB2 
INLIB3 


eee \ 
INFILE = ((sequential-file-description) 
(7 abe sete 1oouneanoee } 
»COMFILE = (sequential-file-description) 


*xinput-enc losure—name 
COMFILE = ((sequential-file-description) 
(,INLIB = (library-file-description) ] 


CARDID 
» YNCARDID +{ GASEG \ + {CKSEQ } 
DCARDID NCASEQ NCKSEQ 


Beech \ {(Tibrenye tlendescripeton)) 
NCODAPND »CULIB = TEMP 


| DEBUGMD 
’ aia \ Baas } » ) NDEBUGMD 
NDCLXREF NDEBUG DDEBUGMD 


Figure 2-1. SCOBOL Statement Format 
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+ {DIAGIN .] [.Dseomax - nnnatk3 | [ »PSEGMAX = nnnntk3 | 


NBS4 
NBS3 


mst) | [titel] [AR 


{ QBSERY | ] Riis = ff feelay We Soar 


NOBSERV 


L64 
L62 LIST 
GCcos Ree »)NLIST 
»LEVEL = ANSI] ANEXPLIST NCLIST 
I. »(PRTLIB = (library-file-description) 


»STEPOPT = (step-paraneters) | ‘coon {ARN 
eo LNWARN 


e \NOPT 


eWORKI = (library-file-description) NCEE \ 
WORK2 = (library-file-description) 9 (NXREF 
eWORKZS = (library~file-description) 


Figure 2-1. SCOBOL Statement Format (cont.) 


As the SCOBOL statement is an extended JCL statement it must not 
appear. inside a step enclosure. The following example illustrates 
the uSe of this statement: 


SJOB.o- 

LIBALLOC CU, (CU.LIB, SIZE = 5), MEMBERS = 1003 
COBOL SOURCE = *PROGI, CULIB = CU.LIB3 

SINPUT PROGI$ 

000100 IDENTIFICATION DIVISION. 

000200 PROGRAM<ID. PROGI. 


SENDINPUT$ 
$ENDJOB$ 


The SLIBALLOC CU statement is used to create a library, CU.LIB, with 
a size of 5 cylinders. Normally, the library already exists and this 
utility need not be used. The compiler will read the source program 
from the input enclosure PROG] (via SYSIN) and will store the 
compile unit in the compile unit library CU.LIB. 


The followi paragraphs describe the parameters. which may ee used 
in the SCOBOL statement. | 
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SOURCE, INFILE, COMFILE, INLIB and INLIBn Parameters 


These parameters are used to specify the name and location of the 
program or programs to be compiled. COMFILE is also used for 
specifying modifications to the source program. See The Alter 
Facility, below (note that this has no connection with the COBOL 
ALTER statement). A series.of programs may be compiled during a 
single execution of the compiler. See Serial Compilation, below. 


At least one of the parameters SOURCE, INFILE and COMFILE must be 
specified in a SCOBOL statement. All of the remajning parameters are 
optional. SOURCE may appear in the same SCOBOL statement as COMFILE, 
and INFILE may appear in the same statement as COMFILE. However, 
SOURCE and INFILE may not appear in the same statement. 


The simplest use of these parameters occurs when the source program 
is held in an input enclosure. In this instance the following 
statement will suffices 


COBOL SOURCE = *input~enc losure-name3 


where input-enclosure~name is the name of an input enclosure 
contained in the same job. 


If the source program is held in a library, the name of the member 
and the name of the library are both specified in the $COBOL 
statement as follows: 


COBOL SOURCE = member-name, INLIB = (library-file-description)3 


However, one or more libraries can also be specified in a separate 
SLIB statement as follows: 


LIB SL,INLIB!I = (library- file-description) 
{(, INLIB2 = (library~ file-description) ] 
{(,INLIB3 = (library-~ file-description) ]3 


COBOL SOURCE = member-name3 


The $LIB statement defines a “search path" for the compiler. The 
compiler will search for the source program specified by member-name 
first in the INLIB! library, then in the INLIB2 library and finally 
in the INLIB3 library .The first member found will be compiled? any 
others of the same name will be ignored. Note that the SLIB 
statements shown in this section do not contain all -possible 
parameters. See the Library Maintenance Reference: Manual for further 
details. 


If source programs of the same name occur in more than one. of the 
libraries included in the SLIB statement, the library to be used can 


be specified by the INLIBn parameter of the S$SCOBOL statement. In 
this case the normal search path is overriden by the INLIBn 
parameter. The statement format is as follows: 


LIB SL,INLIBI = (liorary-file-description) 
{(,INLIB2 = (library-file-description) ] 
(,INLIB3 = (library- file-description) 13 

(INLIB1) 

COBOL SOURCE = member-name, INLIB2 

Nc tae 


3 


The three methods of specifying a member-name and library described 
above may also be used when a series of source programs is to be 
compiled in a single execution of the compiler. In this case the 
SOURCE parameter must specify a series of member-names. For example: 


COBOL SOURCE = (member-namel(,member-namel]...), 
INLIB = (library-file-description) 3 


The chosen search path (given by INLIB or $LIB) may be modified for 
individual source programs by using the COMFILE parameter. The 
COMFILE parameter specifies an input enclosure, library member or 
Sequential file containing commands which control the compilation of 
a series of source programs. The use of the COMFILE parameter is 
described in detail in The Alter Facility, below. The following JCL 
Statements illustrate the use of COMFILE®s 


COBOL SOURCE = member-name, 
INLIB = (library-file-description), 
*x*input-2nc losure-name 
COMFILE = ) (sequential-file-description) ($ 


SINPUT input-enclosure-name3 


COMFILE commands 


$ENDINPUT$ 


Source programs may also be read from a sequential file on disk or 
magnetic tape (this may, for example, be a tape file written by 
SLIBMAINT using the OUTFILE option) The INFILE parameter is used 
for this purpose as follows 


COBOL INFILE = (sequential- file-description)$ 


The file specified in the INFILE parameter can contain one or 
several source programs. The COMFILE parameter can be used together 
with the INFILE parameter to specify which source programs in the 
file are to be compiled. 


As an alternative to specifying a list of member names in the SOURCE 
parameter a ranye of member names can be specified using the 
“asterisk convention" (same as the star convention used by 
SLIBMAINT). The following statement format is used? 


LIB SL, INLIBI = (library-file-description) 
(, INLIB2 = (library-file-description) ] 
[,INLIB3 = (library- file-description) ]% 


INLIB = (library-file- 


COBOL SOURCE = (Casterisk-name description) 
{(,asterisk-nameJ...),  jINLIBI 3 
INLIB2 
\INLIB3 


Note that the library to be used must be speci fied in the SCOBOL 
statement i.e. no library searcn is carried out. The $LIB statement 
can be omitted if a library-file-description is included in the 
INLIB parameter. Using the asterisk convention all the library 
member names in the specified library having certain common 
characteristics can be excluded from‘compilation. Conversely, all 
names having certain common characteristics can be selected for 
compilation. The asterisk convention works in exactly the same way 
as the $LIBMAINT star convention. For a description of the star 
convention, see the Library Management Manual. The COMFILE 
parameter cannot be used if the asterisk convention is used. 


Both the SOURCE and INFILE parameters can be excluded from the 
SCOBOL statement. If this is done the COMFILE parameter must be used 
in conjunction with an input enclosure or sequential file containing 
cOmmands which specify the members to be compiled. COMFILE is 
discussed in The Alter Facility, below. 


CARDID, NCARDID and DCARDID Parameters 


These parameters control the treatment of the last eight character 
positions of COBOL text in each record of the source program. CARDID 
causes the compiler to ignore the last eight character positions 
(i.e. they are treated as a card identifier area). NCARDID causes 
the compiler to treat the last eight character positions as COBOL 
text (i.e. no card identifier area exists, area B extends to the end 
of the record). 


If DCARDID is specified or if none of the card identifier parameters 
is specified the compiler assumes the following default values: 


fe re os 


DATASSF 


- CARDID where the language type is COBOL or DATASSF. 


- NCARDID where the language type is COBOLX. 


The effects of using CARDID, NCARDID or :‘DCARDID witn the language 


Taole 2-i. The Effects. of Using 


Language type 
of member 


COBOL 


COBOLX 


Effect of using 


ignores the 
rightmost eight 
character posi+ 
tions 


The compiler 
ignores the 
rightmost eight 
character posi- 
tions. 


The compiler 
ignores the 
rightmost eight 
character posi- 
tions. 

WARNING: This 
will result in 


incorrect compi- 


lation because 
the card-iden- 
tifier area has 
already been 
removéd by 
SLIBMAINT 


The compiler 


Effect of using 
NCARDID 


The compiler 


treats the 
rightmost eight 
character posi- 
tions as COBOL 
text. 


The compiler 
treats the 
rightmost eight 
character posi- 
tions as COBOL 
text. 


The compiler 
treats the 
rightmost eight 
character posi- 
tions as COBOL 
text. 

The card- 
identifier area 
has already 
been removed by 
SLIBMAINT. 


types DATASSF, COBOL and COBOLX is shown in Table 2-1. 


Effect of 
specifying 
DCARDID 
or no 
parameter 
Same as 
CARDID 


Same as 
CARDID 


Same as 
NCARDID 


The CARDID, NCARDID and DCARDID parameters should normally be 
omitted from the SCOBOL statement. CARDID and NCARDID should be used 
only to compensate for any errors in the loading or the updating of 
a source library member. These errors will become apparent if the 
compiler fails to process the end of a source line. Such errors can 
occur when storing a library member (e.g. using the EDIT Z request) 
if the original language type is not used. Such errors should be 
corrected by SLIBMAINT. 
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CASEQ and NCASEQ Parameters 


CASEQ requests that all small letters which are not included in a 
non-numeric literal are processed as if they were capital letters 
(de fault parameter). 


NCASEQ requests that small letters are different from capital 
letters, except for the words whose spelling is the same as that of 
a reserved word (in other words, reserved words may be written in 
small or capital letters, or both). Thus the user-word "abC" is 
different from the user-word "aBC", whereas “move" is the same 
reserved word as "MOVE". | 


The letterS a@,b_yCyd,@yPyrySyV_X and zZ in PICTURE character strings 
are always taken to be their corresponding capita] letters, 
irrespective of whether the NCASEQ parameter is used. The remaining 
lower case letters are never processed in PICTURE character strings 
as upper case letters, even when the CASEQ-parameter is used. 


CKSEQ and NCKSEQ Parameters 


The NCKSEQ parameter requests the compiler not to carry out any 
sequence check on the input source lines. If the CKSEQ parameter is 
specified the compiler will check that the line numbers are in non 
descending sequence (default parameter). The check is done on the 
line number in the SSF header.if the program is in SSF format (TYPE 
= COROL, COBOLX or DATASSF) or on the line number in the source line 
if the program is in SARF format. : 


CODAPND and NCODAPND Parameters 


CODAPND requests that, if there is only one generated code segment, 
an attempt is made to put it in the same segment as the linkage 
Segment. NCODAPND means that the linkage segment will contain no 
generated code (default parameter). Note that small, single segment 
proyrams make the most efficient Transaction Processing Routines 
(TDS) as this reduced the amount of disk activity required for 
mroyram loading. 


CULIB Parameter 


Tne CULIB parameter specifies the library in which the resulting 
compile unit is to be stored. A library-~file-description or the word 
TEMP may be used in the CULIB parameter. 


If a library is specified, it must have been allocated previously 
by, for example, the SLIBALLOC utility, unless the 
library-file-description specified in the CULIB parameter contains 
the SIZE narameter (see the Library Maintenance Reference Manual). 
If TEMP is specified, the compile unit will be written as a 
temporary member of a system library. The member-name given to the 


2-08 


compile-unit will be the same as. the program-name in the PROGRAM-ID 
paragraph of the source program. 


If the CULIB parameter is omitted this is equivalent to CULIB = 
TEMP. 


When linking temporary compile units produced with no CULIB 
parameter, or with CULIB = TEMP, the compile unit library TEMP 
should normally be present in the $LIB search path that precedes the 
SLINKER statement (e.g. SLIB CU, INLIB! = TEMP, INLIB2 = ...). 
However, if TEMP is the only Input comple unit library, no S$LIB CU 
is required to define the search path. 


DCLXREF and NDCLXREF Parameters 


The DCLXREF parameter produces a cross reference listing in 
declaration order. The format of this listing is described in Cross 
Re ference Listing (Declaration Order), below. 


NDCLXREF means that no such cross reference listing is required 
(default parameter). 


DEBUG and NDEBUG Parameters 


The DEBUG parameter requests the compiler to build a table of all 
the. source names in the program with an indication of name type 
(data-name, paragraph-name etc) and the generated segment addresses. 
This table is stored in the compile unit. The program may, after 
linking, be executed under the control of the Program Checkout 
Facility. See Section IV. 


NDEBUG is the default parameter assumed if DEBUG is not speci fied. 
If DEBUG is not specified the Program Checkout Facility may only be 
used with effective addresses. 


DEBUGMD, NDEBUGMD and DDEBUGMD Parameters 


DEBUGMD means that the compilation is done as if the WITH DEBUGGING 
MODE clause were present in the ENVIRONMENT DIVISION, even though it 
is absent. 


NDEBUGMD means that the compilation is done as if the WITH DEBUGGING 
MODE clause were absent in the ENVIRONMENT DIVISION even though it 
is present. 


DDEBUGMD means that the presence or absence of the WITH DEBUGGING 
MODE clause in the ENVIRONMENT DIVISION is meaningful. That is, it 
operates as specified in the COBOL Reference Manual (de fault 
parameter). 
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DIAGIN and NDIAGIN Parameters 


DIAGIN specifies that all errors are embedded in the alter, source 
and/or expanded listings (default parameter). 


NDIAGIN specifies that alter errors are embedded in the alter 
listing, but that other (purely COBOL) errors are listed after the 
source and/or expanded listing. 


DSEGMAX and PSEGMAX Parameters 


These parameters permit the user to specify (in units of 1024 bytes) 
the preferred maximum size.of data and procedure segments in the 
object program. If these parameters are not specified, the maximum 
Segment size is that specified (in bytes) in the MAXIMUM DATA 
SEGMENT SIZE and/or MAXIMUM PROCEDURE SEGMENT SIZE phrases in the 
SOURCE-COMPUTER paragraph of the ENVIRONMENT DIVISION. These phrases 
are not part of the ANS standard. If neither is specified the 
compiler assumes a default.of 4K bytes (K =. 1024). 


The use of DSEGMAX and PSEGMAX is discussed in detail in Section 
VII, Segmentation. 


EXPLIST and NEXPLIST Parameters 


EXPLIST specifies that an expanded source listing is to be produced. 
The source listing, if produced, includes COPY and REPLACE 
Statements. In the expanded source listing COPY and REPLACE 
statements are not printed and replaced and/or deleted words are 
actually replaced or deleted according to the REPLACE statement or 
the REPLACING clause. See Program Listing, below. 


NEXPLIST specifies that an expanded listing is not to be produced 
(default parameter). 


LEVEL Parameter 


The LEVEL parameter specifies that the compilation level is full 
Level 64, Level 62, GCOS level, full ANSI 74 standard, high NBS 
level, high intermediate NBS level, low intermediate NBS level, or 
low NBS level. All features beyond the specified level are flagged 
as fatal errors (x***), No object code is then produced. This 
parameter is not accepted if the level specified is above the 
maximum level specified for the installation. Unless modified by 
the Field Engineering, the default level is ANSI 74, and the maximum 
level for the installation is L64. 


The COBOL facilities which are available in each level of the 


compiler are listed in an appendix of the COBOL Language Re ference 
Manual. 
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Computer-names other than LEVEL-64, but starting with LEVEL-6 cause 
a warning message (**). When SOURCE=COMPUTER is LEVEL~62 the default 
device for ACCEPT and DISPLAY is CONSOLE, the default meaning of 
COMPUTATIONAL is DISPLAY, so called hexadecimal embedded literals 
are accepted according to Level 62 COBOL syntax, and compilation 
level is restricted to GCOS. 


LIST, NLIST and NCLIST Parameters 


NLIST specifies that the source program listing its not to be 
produced. However, unless NDIAGIN has been specified, the lines for 
which an error message is to be produced will be printed. NCLIST 
means the same as NLIST but only applies to lines included in the 
source program as the result of a COBOL COPY statement. LIST means 
that the complete program will be listed ,. including copied lines 
(de fault parameter). | 


MAP and NMAP Parameters 


The MAP parameter produces a data map and procedure. definition 
listing (unless one .of the cross-reference listings has been 
requested), a procedure map listing and. a perform/alter bucket 
listing. The format of these listings is specified in Map Listings 
and Cross Reference Listings, below. 


NMAP means that no such listings are required (default option). Note 
that the cross-reference listing produced by the DCLXREF parameter 
contains all of the information in the data map listing. The XREF 
parameter produces the same information in alphabetic order. 


OBJ and NOBJ Parameters 


The compiler normally generates a compile unit in the library 
specified in the CULIB parameter (or, by default, in a temporary 
library). If NOBJ is used, no compile unit is output. The summary 
page printed at the end of the compilation listing indicates whether 
a compile unit has been produced. 


OBJ is the default parameter assumed if NOBJ is not speci fied. 
QBSERV and NOBSERV Parameters 


The NOBSERV parameter suppresses all observation diagnostic messages 
in the program listing. However, the number of observation messages 
is printed in the compilation summary page and in the Job Occurrence 
Report. If errors of this type are detected by the compiler and 
neither warning, nor serious, nor fatal errors are found, the JCL 
status value will be set to 100 (SEV!) at the end of the 
compilation. See JCL Status, below. 


OBSERV is the default assumed if NOBSERV is not specified. 
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PRTFILE Parameter 


This parameter requests that the compilation listing be appended to 
a permanent SYSOUT file for printing or processing at a later stage 
by, for example, SSYSOQUT, SWRITER or any text handling program or 
utility. Otherwise, the listing is printed at the end of the job and 
no permanent copy is kept. For example, the user could specify 
output to tapes 


SJOB eee 

COBOL 

SOURCE = *xCQBSOURCE, 

CULIB = CU.LIB, 

MAP, 

XREF, 

PRTFILE = (COBFILE, DEVCLASS = MT/T9/D1600, MEDIA = ATAPE)$ 


° 


In this case, only the Job Occurrence Report will be printed at the 
end of job execution. (Note that the Job Occurrence Report is 
unaffected by the PRIFILE parameter.) 


If the PRIFILE parameter is used, the compiler adds the program 
listing to the SYSOUT file in append mode. The PRTLIB parameter, on 
the other hand, replaces any previous listing of the same name (see 
below). 


when serial compilation occurs, all listings are stored in a single 
file. 


If the SYSOUT file is full, the compilation terminates with the 
following message in the Job Occurrence Reports 


CBLO!1.ERROR WHILE COMPILING program-id. LISTING FILE EXHAUSTED 


The size of the file should be increased and the compilation should 
be started again. 


PRTLIB Parameter 


This parameter is similar to PRIFILE except that the listing will be 
stored in a member of the library specified in the PRILIB parameter. 
If several programs are compiled in series, the listing for each 
program will be stored in a Separate library member. Each library 
member will be given the program-name specified in the PROGRAM~ID 
paragraph or the source program, suffixed by "_L". It replaces any 
member of the same name. If the library is not large enough to 
contain the listing, error message CBLO!] is printed in the Job 
Occurrence Report. See PRIFILE Parameter, above, 
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STEPOPT Parameter 


The STEPOPT parameter can be used to specify one or more of. the 


Language (JCL) Reference Manual). However, the following may not 
be included in the STEPOPT parameter for $COBOL: 


~ load-module-name}3 


TEMP, SYS or library-file-descriptions 


the ALL option of the DUMP parameter} 


the OPTIONS parameter. 
SUBOPT and NOPT Parameters 


The SUBOPT parameter requests the compiler to optimize subscripted 
and indexed references to reduce the time taken to execute such 
references. Note that under certain circumstances, optimization will 
result in the removal of array bound protection. The NOPT parameter 
requests no optimization (default parameter). See Section VIII, 
Efficiency, for more information on the use of SUBOPT. 


WARN and NWARN Parameters 


The NWARN parameter suppresses all warning and observation 
diagnostic messages in the program listing. However, if errors of 
this type are detected by the compiler, the number of each type of 
error is printed in the compilation summary page and in the Job 
Occurrence Report, and the severity value is set to SEV! or SEV2, 
unless serious or fatal errors are found (see JCL Status below). 


WARN is the default parameter assumed if NWARN is not specified. 


WORKI, WORK2 and WORK3 Parameters 


The compiler does not normally use files for its work areas 3 
instead it works directly in backing store. When the backing store 
cannot accomodate the required work areas, a fatal error message 15 
printeds 


kkkk 9-56 BACKING STORE IS FULL. USE WORK FILES FOR LARGE PROGRAMS 
Using the WORKn parameters reduces the risks of backing store 


saturation that may arise from a high level of multi-programming or 
from the compilation of very large programs. In such cases it may he 
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advisable either to reduce the total machine load, or to use 
temporary work files, reserved for the compilation by the WORKI, 
WORK2, and WORK3 parameters. 


The first two work files each require a capacity of upto 150 bytes 
per source line ¢ the third requires up to 300 bytes per source 
line. 


Example of the use of temporary work files? 


COBOL 

WORKI = (MYFILE!, FILESTAT = TEMPRY, SIZE = 20), 
WORK2 = (MYFILE2, FILESTAT = TEMPRY, SIZE = 20), 
WORK3 = (MYFILE3, FILESTAT = TEMPRY, SIZE = 40), 


SOURCE = MYPROGRAM3 


In this example, the compiler will use MYFILEI, MYFILE2 and MYFILE3 
which will be allocated temporarily to the job with a size of 20, 20 
and 40 cylinders on the RESIDENT disk pack. If this size is not 
large enough for the compilation, for any of the files, it will be 
increased automaticaly by units of ! cylinder. 


The SIZE parameter is not mandatory in this example. In fact, for 
temporary files, a default value of 4 cylinders is taken, and files 
which happen to be full are incremented by units of | cylinder. 


The advantage of specifying a SIZE is that the compilation will not 
be started if space is not available on the RESIDENT disk pack to 
contain the 3 work files. If SIZE is not specified, the compilation 
will start with 4 cylinders for each file, and it could happen that 
enough space is not available for the compilation. The user can also 
request that the work files be put on another disk pack by 
specifying DEVCLASS and MEDIA in the WORKn parameter. In that case, 
if SIZE is not specified, the compilation will start with one 
cylinder for each file. If the work files specified are too small a 
fatal error message is printed: 


keke 9-55 WORKnN IS FULL 


Permanent work files can be used for WORK!, WORK2 and WORK3 if 
desired. They should be preallocated in the following wav. 


PREALLOC external-file-name, 
BFAS = (LINKQD = (TYPE = NONE, 
BLKSIZE = nnnnn, 
RECSIZE = nnnnon, 
RECFORM = FB, 
NODEL)), 
FILESTAT = CAT, 
DEVCLASS = device-class, 
GLOBAL = (MEDIA = media-list), 
SIZE = nnnnn? 
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The values.of BLKSIZE and RECSIZE must both be 4240 for WORKI and 
WORK2. They must both be 2046 for WORK3. The DEVCLASS, MEDIA and 
SIZE parameters are explained in the Data Management Utilities 
Manual under the PREALLOC utility. The above example preallocates a 
catalogued file, but uncatalogued files may also be used. 

The use of permanent work files has two advantagest the cost of 
dynamic formatting is avoided, and only one compilation using a 
given Set of work files can be active at a given moment (useful for 
queuing compilations submitted from an 1OF terminal). 


Compilation time will increase by about 3% if the WORKn parameters 
are used. 


XREF and NXREF Parameters 


The XREF parameter produces a cross reference listing in alpnabetic 
order. The format of this listing is described in Cross Reference 
Listing (Alphabetic Order), below. NXREF means that no such cross 
reference listing is required (default parameter). 


JCL Status 


At the end of the compilation, subsequent job processing may he 
determined by testing with the SJUMP statement a severity value set 
by the compiler or by the system. Severity values are printed in the 
Job Occurrence Report. The possible values are shown in Table 2-2. 


Table 2-2. Severity Values Set by the Compiler. 


Value 
a 
sen [00 [+ [ooseretion 
[sev [50000 | | conptiation eittea by operator) 
| SEV6 | 60000 — 


abort requested by system (excention) 


2=15 


The following example shows how the severity value mav he tested to 
decide whether to link a program which has just been complleds 


SJOB... 

COBOL 

SOURCE = *COMPST 
JUMP ABNOR, SEV,GR,23 
LINKER 

COMPST, 

COMFILE = *LKCOR3 
ABNOR? ... 


see User JCL Status, Section XII, for more details. 


Libraries Referred to in the COPY Statement 


Text to be included in a COBOL program via the COPY statement is 
stored as a normal library member. The COPY statement must specify 
the name of the library member in which the text is stored. AS a 
result of a COPY statement the entire contents of the sneci fied 
library member will be included in the vorogram. 


When compiling a program which includes a COPY statement, the 
library from which the text is to be conied must he snecifie:!d either 


in the SCOBOL statement or in an earlier S$LIB statement. For 
examp le? 


LIB SL, INLIBI 
COBOL SOURCE 


MY_LIBRARY?$ 
MY_MEMBER® 


If the S$LIB statement is not used, then the SCOBOL statement must. 


include an INLIB = (library-file-description) in addition to a 
SOURCE or COMFILE parameter. For examnle?: 


COBOL SOURCE = MY_MEMBER, INLIB = MY_LIBRARYS 


The COPY statement may contain an optional OF/IN INLTR. 


If the SLIB statement is used, and the INLIK = 
(library-file-description) parameter is not included in the SCOS3OL 
statement, the COPY statement may optionally contain OF/IN 
INLIBI/INLIB2/INLIB3. In this case the text to he conied is in the 
specified library in the SLIB statement. 
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For examples 


COBOL 
COPY MY-TEXT OF INLIB2. 


JCLs | 
LIB SL, INLIB! = MY _LIBRARY_A, 
INLIB2 = MY_LIBRARY_B, 
INLIB3 = MY_LIBRARY_C3 


In this example MY-TEXT is copied from library MY_LIBRARY_B. The 
other libraries specified in the $LIB statement could also contain a 
member called MY-TEXT, but these libraries will be ignored. 


If the OF/IN INLIBn option is omitted the compiler will search the 
libraries specified in the $LIB statement. INLIB! will be searched 
first, then INLIB2 and then INLIB3,. 


If the SLIB statement is used, and the IN’.IB = 
(library-file-description) parameter is incltided in the SCOBOL 
statement, the COPY statement may optionally contain OF/IN INLIB or 
OF/IN INLIBI/INLIB2/INLIB3. In this case the text will be copied 
from the specified library of the $COBOL or S$LIB statement. If the 
QF/IN option is omitted, the compiler will search first in the 
library specified as INLIB in the $COBOL statement and will then 
search in the library specified as INLIBI in the $LIB statement 
followed by INLIB2 and INLIB3. For example? 


COBOL8 
COPY MY-TEXT. 
COPY OTHER-TEXT OF INLIB. 
COPY NEXT-TEXT OF INLIB2. 


JCLs 

LIB SL, INLIBI MY_LIBRARY_A, 
INLIB2 MY_LIBRARY_B, 
INLIB3 MY_LIBRARY_C$ 


COBOL SOURCE = MY_MEMBER, INLIB = MY_LIBRARYS 


ou ft 


In this example MY-TEXT is searched for in MY_LIBRARY, MY_LIBRARY_A, 
MY_LIBRARY_B and MY_LIBRARY_C in that order. OTHER-TEXT is searched 
for in MY_LIBRARY and NEXT-TEXT is searched for in MY_LIBRARY_B. 


Alternatively, an actual library name can be specified in the OF/IN 
clause. This library name must also be specified in the library 
description of the INLIB parameter. of SCOBOL or in the INLIBn 
parameters of S$LIB. The libraries whose names would be INLIB, 
INLIB!, INLIB2 or INLIB3 may not be referenced by their actual name. 


Note that the INLIB or INLIBn parameter in the $COBOL statement and 
the R INLIB/INLIBn request in conjunction with the COMFILE parameter 
of the SCOBOL statement do not affect the search path used for 
copied text. See The Alter Facility, below, for details of the R 
request. 
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THE ALTER FACILITY 


The alter facility allows the user to compile modi fied source 

programs without actually modifying the source library, file or { 
input enclosure. The alter facility should be distinguished from the 
COBOL ALTER statement. The alter facility is in no way connected 

with the ALTER statement, and the two should not be confused. 


The modifications to be applied to a program are specified in an 
input enclosure, library member or sequential file known as a 
“command file". The command file comprises the following’ 

~ a "COMPILE" command 


- editor requests 


For example, one could submit a compilation of MY PROGRAM where the 
lines 12 and 16 would be deleted, without changing the source 
library. The submission deck could be as follows’ 


2716.2 


LIB SL, INLIBI = (MY_LIBRARY, 20) 
COBOL COMFILE = *MY_ALTER$ ? 
SINPUT MY_ALTER$ 

COMPILE $ 

R MY PROGRAM 

12D 

16D 


Q 
SENDINPUT $ 


The command file is normally specified in the COMFILE parameter of 
the SCOBOL statement. However, if there is no COMFILE parameter, and 
the first line of source starts with the word COMPILE (possibly 
preceded by at most 6 blanks), the file is considered to be the | 
command file. Note that a command file must be in SARF format, or in 
SSF format with a language type DATASSF. 


The COMPILE command consists of the word "COMPILE", optional SCOBOL 


parameters and a mandatory semi-colon ("3"), The command may occupy 
more than one line but a parameter may not be split between two 
lines. The allowed parameters are as follows: 


CARDID NCARDID DCARDID 
CASEQ NCASEQ 

CKSEQ © NCKSEQ 

CODAPND NCODAPND 

DCLXREF NDCLXREF 

DEBUG NDEBUG 

DEBUGMD NDEBUGMD DDEBUGMD 
DIAGIN NDIAGIN 

EXPLIST NEXPLIST 

LIST NLIST NCLIST 
MAP NMAP 

OBJ NOBJ 

OBSERV NOBSERV 

SUBOPT NOPT 

WARN NWARN 

XREF NXREF 


These parameters override default as well as explicit JCL 


parameters. 


The COMPILE command may also contain the SKIP parameter, in which 
case no other parameter is permitted. This parameter means that the 


next program in the source file or member is not to be compiled. See 
Serial Compilation, below. 


Permissible editor requests are a subset of the standard SLIBMAINT 
EDIT requests, namelys 


append 
change 
delete 
insert 


OOS 
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no request 
quit 

read member 
substitute 
comment 


SMNDOS 


Apart from Q and R, the above editor requests work in exactly the 
same way as in the EDIT command of S$LIBMAINT. The differences for Q 
and R are explained below. 


The Q@ request is not mandatory for the COBOL compiler. It can be 
ommitted in all cases, but the programmer may wish to include the Q 
request so that the command file can later be input to S$LIBMAINT 
without modification. 


The R request identifies the program to be. compiled. Its format is 
as follows: | 


INLIBI 

R INLIB2( # | member-name 
INLIB3 
INLIB © 


This request is different from the R request of S$LIBMAINT EDIT. A 
series of R requests input to the EDIT command of SLIBMAINT will 
cause the specified set of members to be concatenated. This does not 
happen when a series of R requests is input to the compiler. Each R 
request will result in a separate compilation. 


INLIBI, 2 or 3 specifies that the member whose name is member-name, 
is to be searched for in the library specified in the SLIB statement 
under the INLIBI, 2 or 3 parameters respectively. INLIB means that 
the member is to be searched for in the library specified in the 
INLIB = (library-file-description) parameter of the $COBOL 
Statement. In the absence of these keywords, member-name is searched 
for first in the libraries specified in the $LIB statement, 
according to the implied searching rules, then in the INLIB library. 
If member~name is absent, the program to be compiled is the next in 
the current member or file, or the first in the specified member or 
file when it is the first "R" request. See Serial Compilation, 
below. 


The address forms which may be used in editor requests are! 
regular expression 
7 (first line) 
$ (last line) 
° (current line) 
SSF line number 
possibly modified by an expression of the form: 


+ relative~number-o f-lines 
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Address ranges with the addresses separated by commas or semi~colons 
are allowed. Compound addresses are allowed except in address 
ranges. 


Addresses must be given in such an order that they. refer to 
successive lines of the source. They cannot refer to lines inserted 
as the result of an A, C or I request. 


When successive programs of a member (see Serial Compilation, below) 
are referred to, the " I" address refers to the first line of the 
first program. 


Upper and lower case letters are equivalent in the COMPILE command 
and as request identifiers. 


SERIAL COMPILATION 


The compiler can compile a series of programs during a single 
execution. Two levels of “seriality" are available. 


The lower level is as follows. There may be several] programs ina 
single member, or in a file. They must all be terminated by a line 
containing the character string “END COBOL" only, somewhere in area 
A or B (the last "END COBOL" line in a member or file is not 
mandatory). Each program is compiled in its turn. 


The upper level may be at the level of the SOURCE parameter of the 
SCOBOL statement. This parameter may specify more than one member. 
In that case, all programs contained in the first specified member 
are compiled, then, all programs contained in the second specified 
member, and so on. 


The upper level may also be specified in the COMPILE command and any 
associated R request in the command file. Thus? 


COBOL SOURCE = (MEMBER~-1 ) MEMBER=2 eee ) eee 
could also be written: 


COBOL COMFILE = *ALTER... 
SINPUT ALTER? 

COMPILES 

R MEMBER-| 

COMPILE3 

R MEMBER=2 

SENDINPUT 3 


Note that SOURCE or INFILE can be used in the same SCOBOL statement 
as COMFILE. 


The command file is necessary if the source program is to ‘be 
modified before compilation. For example: 


SINPUT ALTER3 
COMPILE$ 
R MEMBER~1 


as 
, $S/MOVE/ADD/ 

COMPILE3 

R MEMBER~2 

“NO MODIFICATION APPLIED TO MEMBER-2 
SENDINPUT$ 


If MEMBER-1 contains more than one program, say 3, only the first 
one will be compiled with the above command file. If all of them are 
to be compiled, the command file should be as follows: 


SINPUT ALTER$ 
COMPILE $ 

R MEMBER-| 
COMPILE? 


R 
COMPILE 3 
R 


COMPILE $ 
R MEMBER=2 
SENDINPUT 3 


If the second program of MEMBER=1! was to be skipped (not compiled) 
the command file becomes: 


SINPUT ALTERS 
COMPILE$ 

R MEMBER-I - 
COMPILE SKIP$ 
COMPILE$ 

R 

COMPILES 

R MEMBER=2 
SENDINPUT 3 


Obviously, when the R request does not specify a member-name, or 
when the SKIP parameter is used with the COMPILE command, there must 
be another program in the current member. This means that the name 
of the current member must be established by an "R" request (as 
shown in the previous examples). 


However the name of the first member may also be specified in the 
SCOBOL statements 


COBOL SOURCE = MEMBER=1, COMFILE = *ALTER... 
SINPUT ALTER; 

COMPILE 3 

R 

“COMPILE THE FIRST PROGRAM OF MEMBER~1 
COMPILES 

R 


2-20 


In the same way, a source file may also be speci fieds 


COBOL INFILE = (SOURCE,...), COMFILE = *ALTER... 
S$INPUT ALTER? 

COMPILE $ 

R 


“COMPILE THE FIRST PROGRAM OF SOURCE 
COMPILE SKIP$ 

COMPILE $ 

D 


“COMPILE THE THIRD PROGRAM OF SOURCE 


When a command file is specified, the serial compilation is 
controlled by the contents of that command file. Therefore, the 
possible SOURCE parameter .of the SCOBOL statement must not specity 
serial compilation. 


The MOVE function of SLIBMAINT can store more than one subfile in a 
sequential file. This sequential file may then be stibmitted to the 
compiler. The contents of each subfile will be handled as if it was 
separated from the next subfile by END COBOL. Each subfile can 
itself contain programs sepnarated and/or terminated by END COBOL. 


A serial compilation can be restarted, if necessary, simply by 
changing the JCL to exclude those programs which have already been 
compiled successfully. The compiler will not restart in the middle 
.Of a partially compiled program. 


COMPILER LIMITS 
The COBOL compiler has the limits shown in Table 2-3. 


Table 2-3. Compiler Limits 


Variable Limit 


Number of user-names (data, filler, paragraphs) 28000 


havin sine fo cove seprent | 2000 ns 


Limits.which are in excess of the ANS standard are available only if 
the LEVEL =-L64 parameter is included in the S$COBOL statement: 
otherwise the ANS standard limits apply. 


256 char. 
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COMPILING LEVEL 62 PROGRAMS 


Level 62 COBOL programs may be submitted to the Level 64 COBOL 
compiler for compilation and execution on the Level 64 computer. 
Programs are compiled as Level 62 programs by the compiler when the 
two following conditions are mets 


The SOURCE~COMPUTER paragraph speci fies LEVEL-62 as 
computer-name, and 


The compilation is requested with the LEVEL = L62 parameter in 
the SCOBOL statement. 


The program will not compile if any of the following conditions 
existss 


The Level 62 communications feature is used. 
The Level 62 extended indexed organization is used. 


A file is referenced in the PROCEDURE DIVISION USING...header 
or as a CALL argument. 


OPEN REVERSED is used. 


A non-numeric comparison references operands of different 
usages. 


The program will compile but may not execute correctly if any of the 
following conditions exists: 


The commercial at sign (@) is used in column 7 (it is processed 
as an asterisk). 


The JOB-LINKAGE SECTION header is used (the compiler processes 
items described in that section as WORKING-STORAGE SECTION 
items). 


RERUN... EVERY condition-name and its related SET 
condition~name is used (the compiler ignores this clause and 
statement). 


USE AFTER... ON DATA or PROGRAM ERROR is used (the compiler 
ignores these sections). 


STATUS KEYs are used that do not have the same meaning in both 
implementations. 


An attempt is made to read a record of an indexed file that has 
been written in the same run (it will be retrieved in Level 64, 
whereas it would not in Level 62). 


There may also be cases where the precision of intermediate results 
differs from one machine to the other. 


If none.of the above conditions exists the program will compile and 
execute correctly in spite of options or defaults that are Level-62 
specific. In some circumstances, the option is. ignored, and will 
have to be replaced by appropriate JCL statements. The special 
actions taken by the compiler when compiling in the Level-62 mode 
are? 


- DEBUG-ITEM-ERR is accepted as a group item subordinate to the 


- The format of so-called "embedded hexadecimal values within 
nonnumeric literals" is that of Level 62 (and therefore, the 
Level 64 format is not allowed). 


- The LITERAL-WITHIN clause is ignored (but the Level 64 compiler 
accepts the apostrophe as well as the. quote as a nonnumeric 
literal delimiter). 


- The OPTIONAL phrase of the SELECT clause is allowed for any 
file organization. 


- The BLOCK FORMAT and BLOCK LENGTH phrases of the SELECT clause 
are ignored. 


- NEW INDEXED is accepted as equivalent to INDEXED. 

- The default file organization is LEVEL-62 instead of UFF 
~- RERUN-FILE is accepted as the checkpoint file name. | 
- The APPLY MARK SENSE clause is ignored. 

~ USAGE IS COMP is equivalent to USAGE IS DISPLAY. 


- Unsigned COMP-3 items are allocated with a sign position (i.e. 
behave as Level 64 COMP-8 items). 


~ The REDEFINES clause need not reference the first redefined 
item. 


~ The default device for ACCEPT and DISPLAY is CONSOLE. 


- The internal~file-name suffixes are accepted % those whose 
first two characters are "PR" are processed as PRINTER 3 when 
the suffix is REPORT, it is processed as SYSOUT. 


When the above actions are based on syntax (i.e. are not the result 
of default application) they are shown by appropriate diagnostics. 
The fact that the program is processed as a Level 62 program is 
shown in the banner page of the compilation listing. 
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OBJECT CODE 


The following PROCEDURE DIVISION extract shows 4 COBOL statements on 
lines 22, 24, 30 and 31. 


20 PROCEDURE DIVISION. 

2l DEBUT. 

22 QPEN INPUT Fl. 

23 LEC. 

24 READ FI AT END GO TO FIN. 
29 FIN. 

30. CLOSE Fl. 

31 STOP RUN. 


The corresponding procedure map extract (in line number order) 
gives: 


22 2:0000C 24 220007A 24 2300096 ifs plete nes 
-- ----- — 30 2:000CE 31 280010A sis setae 


Thus the first COBOL statement starts at address C. There is object 
code that occurs before the first COBOL line which ts known as the 
"Prologue". The Prologue is executed at the start of the program and 
carries out certain housekeeping functions. 


Each COBOL statement included in the PROCEDURE DIVISION is compiled 
into object code together with a note of its source line number. If 
a line. of source COBOL contains more than one statement or if one 
Statement is used which is equivalent to several simple verbs (e.g. 
MOVE CORRESPONDING) there will be several sets of compiled code for 
that line. In this case the procedure map contains several] entries 
for the line (line 24). 


OPEN,CLOSE,QCCURS DEPENDING,ON etc. use subroutines which are 
generated at the end of the main object code in what is called the 
"Epilogue". | 


PRINTED OUTPUT 


The following paragraphs describe the printed output produced by the 
compiler. The output is described in the order in which it is 
produced, under the following headings? 


- Banner page 


Program listing 
- Map and cross-reference listings 


- Summary page 


Banner Page 


A sample banner page is shown in Figure. 2-2. The. information 
appearing on this page is discussed in the following paragraphs. 


PROGRAM 


This shows the program=<name taken from the PROGRAM-ID paragraph of 
the source program. If there is no PROGRAM-ID paragraph in the 
program the compiler assigns a name to the program based upon the 
current date and time: 


yyddd-hhmmss 

wheres yy is year 

ddd is day 

hh is hour 

mm are minutes 

ss are seconds. 
This program—name is used in forming the name of the listing file 
when a permanent SYSOUT file is being used. 
USER AND PROJECT 
These items show the USER and PROJECT specified in the $JOB 
statement. 


DATE AND TIME 


These items show the system date and time at which the compilation 
was done. 
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coOBOL v-50.2 X93.1 LISTING BOURGAIN BOURGAIN 13242336 MAR 314 1978 PAGE 1 
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PROGRAM: FIND-DAY 

USER: BOURGAIN 

PROJECT: BOURGAIN 

DATE: 03/31/78 

TIMES 13242336 

COMPILER VERSION: L64 COBOL V-50.2 

USER OPTIONS: COMFILE LIB=1 LEVELSL64 DCLXRE! XREF EXPLIST 


ACTIVE OPTIONS: OBJ» NDEBUGs WARNs OBSERVs NFAPs OCLXREFs XREFe LIST» EXPLISTs CKSEQse CARDIDse CASEQse DIAGIN, 
NCODAPNDs NOPTs DDEBUGMDs PSEGMAXB4COG( BYTES) s DSEGMAX=4096( BYTES). 


COMPILATION LEVEL: L64 


COMPILER INPUT: 

ALTER FILE 

RSTR CH ALTER) 

Cd=01/23/78 CT=102352s24 MD=01/23/78 MT=10235324 SLEDAT MN200 NM2ALTER-DAYS 
SOURCE FILE 

FIND-DAY IN RSTR CH_INL1B1) 

CD=01/23/78 CT210235:224 MD2=03/07/78 MT =1.2:162:12 SL=DAT MN211 NM=FIND~DAY 
COPY FILE (COPIED TEXT ON LINES 38 THROUGH 49) 

DAYS IN RSTR CH_INL1B1) 

€0201/23/78 CT210235:24 M0=01/23/78 MT=1 (2:35:24 SL=DAT MN=00 NMADAYS 


COMPILER. VERSION 
This shows the version of the compiler being used and the patches 
which have been applied to it. For examples 


COMPILER VERSION t L64 COBOL V-50 


If patches have been applied to the compiler the relative number of 
the latest series of patches applied appears after the version 
number. For examples 


COMPILER. VERSION 8s L64 COBOL V~—50.6 


If one or more patches prior to the latest patch have not been 
applied then the number of non~applied patches follows the latest 
patch number. For example: 


COMPILER VERSION : L64 COBOL V~50.6-2 


In such a case the numbers of the missing patches are listed in the 
following way 


COMPILER VERSION # L64 COBOL V~50.6~-2 
COMPILER VERSION ADDITIONAL INFORMATION 3 
OO! 004 


where OO! and 004 are the numbers of the missing patches. 


USER. OPTIONS AND ACTIVE OPTIONS 


USER OPTIONS lists the parameters specified by the user in the 
SCOBOL statement. ACTIVE OPTIONS lists all of the compiler default 
parameters in addition to those specified by the user. 


COMPILATION LEVEL 
This shows the level of COBOL which is expected by the compiler and 
is derived from the LEVEL parameter in the SCOBOL statement and the 


SOQURCE-COMPUTER paragraph in the source program. The possible values 
ares 164, L62, GCOS, ANSI, NBS4, NBS3, NBS2 or NBS]. 
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COMPILER INPUT 


This identifies the file and subfile from which the source program 
was read. The command file (see The Alter Facility, above) is also 
identified if it is used..I1f the source program contains a COPY ; 
verb, the file from which text is copied is also identified. 


A two or three line identification is printed for each type of file. 
The first line identifies the type of file: SOURCE FILE, COMMAND 
FILE or COPY FILE. If the file is a COPY FILE the line numbers of 
the copied lines are also specified. For examplet 


COPY FILE (COPIED TEXT ON LINES 21 THROUGH 26) 


The second line gives the file name, subfile-name (if a subfile is 
being used) and the internal-file~name used by the compiler, in the 
following way: 


subfile-name IN file~name (internal-file-name). 
The third line appear only if the file is an SSF file. It gives 


information taken from the type 10! control record. It contains the 
following list of mnemonics and values 3 


CD = creation date 

CT = creation time 

MD = date last modi fied 

MT = time last modi fied 

SL = source language type (DAT, CBL, CBX) 

MN = modification number. This is zero for a new file or 
subfile and is augmented by one for each update. 

NM = name (normally the same as the subfile name.) 


Program Listing 


The program listing may be printed in one two or three sections. 


~ Alter listing (Figure 2-3). 


Source listing (Figure 2-4). 
- Expanded source listing (Figure 2-5). 
i - Error listing. 
The alter listing is a listing of the contents of the command file 
(note that this listing has no connection with the ALTER statement). 


The alter listing is always produced when a command file is used. It 
is printed before the source listing and expanded source listing. 
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The source listing is printed. if there is no NLIST parameter 
specified in the $COBOL statement. The listing incorporates any 
alterations specified in a command file and (if there is no NCLIST 
parameter in the SCOBOL statement) any text referred to in COPY 
statements. However, the effects of a REPLACE statement in the 
CONTROL DIVISION or a REPLACING clause in a COPY statement are not 
shown. That is, the specified words are listed in their original 
form, with an indication of the first and last word replaced or 
deleted. 7 

The expanded source listing is only produced if the EXPLIST 
parameter is specified in the S$COBOL statement. It is printed after 
the source listing. The expanded listing has the following 
differences from the source listing. 


~ COPY and REPLACE statements are not printed. 


- The effects of a REPLACE statement or REPLACING clause are 
shown’ that is, the specified words are listed in their new 
form. 


If both the source and the expanded listings are requested but there 
is neither a COPY statement nor a REPLACE statement in the vrogran, 
only one listing is output. 


The internal line numbers of alter listings, source listings and 
expanded listings are distinguished in the following way. 


= Alter listing. The internal line numbers in an alter listing 
are always prefixed by "A." . For example A.IOI, A.~102, A.I03. 


~- Source listing. If there is an expanded listing as well as a 
source listing, the internal line numbers in the source listing 
sre prefixed by "S." . However, if there is no expanded listing 
this prefix is not printed. 


- Expanded source listing. The internal line numbers of expanded 
source listings are not prefixed. 


Tre -.ove prefixes are also used in the summary of errors on the 
summary page of the compiler listing. 
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FIND-DAY 


“COBOL V-50.2 x93.1 


ALTER LISTING 


== > COMPILE, 


Rs: R FINO-DAY 


R: /DATA/S/OIVISION/EL/ 


LISTING 


BOURGAIN BOURGAIN 13342336 


R: /01 DOITWEEK-TAB/s/ SUIFDAY/C 


* 11-44 TEXT FOLLOWS THE ‘A'*, 


"c', "I" CR 


COPY DAYS 
REPLAC IN ¢ 


1 
"q! 


PIC x€8) 


COMMENT 


COMMAND ON THE LINE. TEXT IS IGNORED. 


=a BY == PIC X(€10) 22, 


MAR 31, 


1978 


PAGE 


COBOL V-50.2 X93.1 LISTING BOURGAIN BOURGAIN 313242356 MARK 314 1978 PAGE 


le-2 
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FINO-DAY SOURCE LISTING 
ILN KLN TEXT 9 ?=10-——-=--— 20 em mn nm 3 a nn 8 0 ene ee 60--<= ---- 70-2 cee c ces tm 
$.1 4 IDENTIFICATION DIVISION. 
S$.2 2 * THIS ROUTINEs STARTING FROM A DATEs GIVES <- 
$.3 3 * THE DAY IN THE WEEK CORRESPONDING TO THE 
$24 4 * DATE 
$.5 5 PROGRAM-ID. FIND- (AY, 
$.6 6 * 
$.7 7 ENVIRONMENT DIVISIJON. 
$.8 8 CONFIGURATION SECTION. 
$.9 9 SOURCE~COMPUTER. LEVEL-64 5 
$.10 10 OBJECT—COMPUTER. LEVEL—64. 
$.11 11 * 
$.12 #12 DATA DIVISION. <- 
$.13 13 a 
$214 14 WORKING-STORAGE SECTION. 
$2.15 15 a TEMPORARIES 
$2.16 16 O1 XxX PICTURE 9(10). 
$.17 17 O01 Y PICTURE 9(5). 
$218 18 * TOTAL NUMBER OF DAYS PRECEDING THE MONTH 
$.19 19 * CSHOWN BY ITS OROINAL NUMBER IN THE LIST) 
$.20 20 * IN THE YEAR 
$.27 21 O01 PREC~D-TAB. 
$.22 22 O2 FILLER PIC 999 VALUE 0. 
$.23 23 O02 FILLER PI-( 999 VALUE 31. 
$224 24 O2 FILLER PIC 999 VALUE 59. 
$.25 25 O2 FILLER PIC 999 VALUE 90, 
$26 26 O2 FILLER PIC 999 VALUE 120. 
$.27 2? O02 FILLER PIC 999 VALUE 151, 
$.28 28 O02 FILLER PIC 999 VALUE 181. 
$229 29 O2 - FILLER PIC 999 VALUE 212. 
$.30 30 O2 FILLER PI:( 999 VALUE 243. 
$231 31 O2 FILLER PI.( 999 VALUE 273. 
$.32 32 O2 FILLER PI.€ 999 VALUE 304. 
$.33 33 O02 FILLER PIC 999 VALUE 334. 
$234 34 01 PREC-D-TAB-RE:( REDEF INES PREC-D-TAB. 
$.35 35 O2 PRECEDING~-ODAYS PIC 999 OCCURS 12. 
$.36 36 * TABLE GIVING THE NAME OF THE DAYS IN THE 
$.37 37 a WEEK 
$.38 * COPY DAYS 
$.39 is REPLACING =: PIC X(8) == BY =] PIC X(10) =2, 
$.40 wet 01 THER-UNUSE Dw 
$.41 wee FILLER PIC X. 
$242 oe FILLER COMFf~1 SYNC. 
§.43 was 01 TWEEK-TAB. 
$244 325 FILLER PI-(C XC8) VALUE “LUNDI Ne 
| 2 
1 1-32 FIRST WORD OF TEX ‘EPLACED (OR DELETED). 
2 1-33 LAST WORD OF TEXT iPLACED (OR (FI ETED). 
§.45 a) > FILLER PIC (10) VALUE “MARDI ee 
$246 awl > FILLER PIC (10) VALUE “MERCREDI”. 
$247 28 > FILLER PIC (€10) VALUE “YEUDI nS 
3248 029 > FILLER PI. .€10) VALUE “VENDREDI". 


$2.49 2-10 O2 FILLER PIC X(10) VALUE “SAMEDI "™. 
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FINO-DAY 
ILN 


OMONnN A NAW 


COROL 


XLN 


OMNA YAS WN = 


eed 
ee) 


V-50.2 


X9321 LI ¢ 


EXPANDED SOURCE LISTING : 
-------- 20 -- --—--- 3 0- ------- 40------ --5 0 -------- 60----- === 70--. eee ce 


TEXT 7-10 


TING BOURGATH BOURGAIN 13:42:36 MAR 31-4 1978 PAGE 


IDENTIFICATION DIVISION. 
THIS ROUTINEs STARTING FROM A DATEs GIVES <> 
THE DAY IN THE WEEK CORRESPONDING TO THE 


a 


PROGRAM-ID. FIND C 


* 


DATE 
AY. 


ENVIRONMENT DIVIS JON. 

CONFIGURATION SECTION. 
SOURCE-COMPUTER. L 
OGBJECT-COMPUTER. | 


* 


DATA DIVISION. 


* 


EVEL-64 


WORKING-STORAGE S ICTION. 
TEMPORARIES 


* 
01 
01 

x 


01 


01 


01 


X PICTURE 9(1C 
Y PICTURE 9(5) 


PREC-D-TAB. 

O2 FILLER PI.¢ 
O2 FILLER PIit 
O2 FILLER PIC 
O2 FILLER PIit 
O02 FILLER PIV 
O2 FILLER PIC 
O2 FILLER PI.¢ 
O2 FILLER PIC 
O2 FILLER PI ¢ 
O2 FILLER PI 
O2 FILLER PIC 
O2 FILLER PI C 
PREC~D- TAB- RE: | 


Js 


TOTAL 


<n 


NUMGER OF DAYS PRECEDING THE MONTH 


CSHOWN BY ITS OROINAL NUMBER IN THE LIST) 
IN THE YEAR 


999 VALUE 
999 VALUE 
999 VALUE 
999 VALUE 
999 VALUE 
999 VALUE 
999 VALUE 
999 VALUE 
999 VALUE 
999 VALUE 
999 VALUE 
999 VALUE 
REDEF INES 


PREC~D-TAB. 


O2 PRECEDING -DAYS PIC 999 OCCURS 12. 


OTHER~UNUSE D0. 
O2 FILLER PIC 
O2 FILLER COMF 


1 


TABLE 
WEEK 


X. 
-1 SYNC. 


GIVING THE NAME OF THE DAYS IN THE 


* 1 2-199 A 1 BYTE TYPE 2 FILLER WAS ALLO:(ATED TO ALIGN THIS SYNCHRCNIZED ITEM (SEE REFERENCE MANUAL). 


01 


01 


OITWEEK-TAB. 
O2 FILLER 


O2 FILLER PI ( 
O2 FILLER PIC 
O2 FILLER PI ( 
O2 FILLER PIC 
O2 FILLER Plit 
O2 FILLER PI ¢ 


PIC x(€10) <- 


VALUE "“LUNDI gr 
X(10) VALUE "MARDI ae 
X€10) VALUE "MERCREDI". 
X€10) VALUE “JEUDI ". 
x€10) VALUE “VENDREOI"™. 
XC10) VALUE "“SAMEDI ". 
x010) VALUE "DIMANCHE™. 
DITWEEK-TAQ-R EDO REDEFINES DITWEEK-TAR. 


No source listing will be produced when the NLIST parameter is 
specified in the S$COBOL statement and no COPY text will be printed 
when the NCLIST parameter is specified. An error listing is printed 
whenever the NLIST and/or NDIAGIN parameters are specified. Wnen the 
NLIST parameter is specified and NDIAGIN is not specified the error 
listing contains any diagnostic error messages generated by the 
compiler, together with the relevant lines of source program. When 
the NDIAGIN parameter is specified (with or without NLIST) the error 
listing contains any diagnostic error messages generated by the 
compiler, but does not contain any lines of source program. Instead 
the line number and column number of the spurious source code is 
printed with each error message. 


The layout of the source listing and expanded source listing is 
described in the following paragraphs. 


HEADINGS 


The first two lines of heading are self explanatory. The meaning of 
the third line.of heading is as follows: 


ILN - Internal line number, used by the compiler to identify 
lines of source code. This is independent of the external 
line number (XLN). 


XLN - External line number, taken from the source input file. 


TEXT - The first column of source code starts under the T of TEXT. 
Columns 7, 10, 20, 30, 40, 50, 60, and 70 are marked along 
the line. The specified column appears under the least 
significant digit of each number. Columns 73 to 80 are 
marked by periods, followed by <- in columns 81! and 82 to 
mark the end of the traditional 80 column line. 


SOURCE LINES 
The components of a line of source code are as follows: 


ILN ~ The ILN starts at one for the first line printed from the 
source input file and increases by one for each subsequent 
line from this file, including lines which are copied into 
the source program using the COPY statement or are included 
as a result of an A, I or C request in a command file. 


XLN —- This is the line number taken from the SSF header on each 
source record in the input file. If the input file is not 
in SSF format the XLN is taken from the first 6 character 
positions of the record. A single period to the left of the 
external line number indicates that the line has been 
included as the result of an A, I or C request of the 
command file. A double period to the left of the external 
line number indicates that the line has been included as 
the result of a COPY statement. An asterisk to the left of 
the external line number indicates that the line has been 


modified as the result of an S request of the command file, 
or, for lines following COPY statements, when the part of 
the line following a COPY statement is repeated. A minus 
sign to the left of the external line number indicates that 
lines have been deleted from the source before that line as 
the result of a C or D request in the command file (lines 
deleted at the end. of the program are not shown). In the 
expanded source listing, periods, asterisks and minus signs 
have the same meaning as above; in addition, the asterisk 
means that the line has been modified as the result of the 
application of the REPLACE statement of the CONTROL 
DIVISION, or of the REPLACING clause of a COPY statement. 


TEXT - Columns | to 6 of the text may contain a line sequence 
number. This number corresponds to the sequence number 
which may be punched in columns |! to 6 if the program is 
input to the system on cards. There will be no such 
sequence number if the source input file has a language 
type COBOL or COBOLX. 


In both the source and expanded source listings, whenever a 
line is not in 80 column format (with source from columns 8 
to 72) an arrow <- is printed at the right of the line. The 
arrow appears in the two columns following the card 
identifier area. 


DIAGNOSTIC ERROR MESSAGES 


Diagnostic messages are generated when the compiler detects 
incorrect or inconsistent code in the source program. A complete 
list of error messages is given in Appendix B. Diagnostic messages 
are also generated when the compiler detects incorrect or 
inconsistent requests in the alter file. These messages normally 
appear embedded in the source and expanded source listings. However, 
if the NDIAGIN parameter is specified in the SCOBOL statement, all 
errors will be listed after the source and/or expanded source 


listing, except for the errors in the command file which are always 
embedded in the alter listing. 


The format of a diagnostic message is as follows: 


aaaa Oo p-nnn message~text... 
where? 
aaaa can be one, two, three or four asterisks, indicating 
the severity of the message. * is an observation, ** 
is a warning, *** is a serious error and **** is a 
fatal error. 
fe) is a number from |! to 9 indicating the order of the 
message, when it refers to a specific piece of text 
in the line. 
p-nnn is the number given to the error which has occurred. 
message-text is a plain English explanation of the error. 


Each part of the message is described in turn in the following 
paragraphs. 
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An observation message (one asterisk) indicates the action taken by 
the compiler where this may not be clear from the Source code. 
Observation messages can be suppressed by specifying the NOBSERV or 
NWARN parameter in the $COBOL statement. The following example 
contains an observation message? 


14 FD FI 

15 LABEL RECORD STANDARD 
16 DATA RECORD. Al A2. 

17 Ol. Al PIC X(80). 

18 O1 A2 PIC X(80). 

19 O1 AO PIC X(80). 


1 
* | 3-191 RECORD DESCRIPTION ASSUMED TO BE DATA RECORD 
FOR PRECEDING FD. 


A warning message (two asterisks) indicates a possible error. The 
source statement is compiled but the results may be different from 
those intended by the programmer. Warning messages can be suppressed 
by specifying the NWARN parameter in the SCOBOL statement. The 
following example contains a warning message: 


20 WORKING-STORAGE SECTION. 
21 Ql AA PIC X(8). 

22 OL BB PIC X(6). 

23 PROCEDURE DIVISION. 

24 Pl. 

25 MOVE AA TO BB. 


] 
wk | 5-148 THIS RECEIVING ITEM MAY BE TRUNCATED ON RIGHT 


A serious error message (three asterisks) indicates a major error in 
the program. The compiler continues to check the source code but 
does not generate a compile unit. The message "NO CU PRODUCED" will 
be printed on the summary page of the compiler listing. The 
following example contains a serious error message! 


10 FD Fl LABEL RECORD OMITTED. 
11 O1 AI PIC X(80). 
20 WORKING-STORAGE SECTION, 
21 Ol RECEP PIC X(4). 
22 PROCEDURE DIVISION. 
23 S! SECTION 1}. 
24 Pl. . 
WRITE Al. (Al instead of AI) 


1 
wkk | 6-2 ITEM NOT DECLARED 
* 1 5-164 SYNTAX CHECK DISCONTINUED 
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The "SYNTAX CHECK DISCONTINUED" observation message indicates that 
the compiler has interrupted analysis from this point, until it 
encounters a recognizable sequence (point, paragraph, section, 
etc.). The compiler then resumes its analysis indicating "SYNTAX 
CHECK RESUMED". 


A fatal error message (four asterisks) indicates that an error has 
occurred whichs 


- prevents the compilation from continuing its analysis. It may 
be a system error (e.g. unable to read a source file), a 
compiler error (e.g.unrecoverable difficulty), a compiler limit 
(e.g. too many operands in the REPLACING phrase of a COPY 
statement), a user error (e.g. absence of the speci fied source 
member from the specified input library or libraries)’ or 


- prevents the compilation from generating object code (e.g. use 
of a feature not included in the level of compilation 
explicitly or implicitly specified by the LEVEL parameter of 
the SCOBOL statement). 


The following example contains a serious error message: 


52 520 O3 DATA~ITEM PIC X VALUE ’X?%. 
| 
* |) t-100 THE APOSTROPHE IS USED INSTEAD OF THE QUOTE TO DELIMIT 
LITERALS IN THIS PROGRAM, 
wee 61 61-2606 THIS FEATURE IS A LEVEL~64 SPECIFIC FEATURE, NOT 


INCLUDED IN THE CURRENT COMPILATION LEVEL. 


In this example the compilation has been requested without the LEVEL 
= L64 parameter in the SCOBOL statement. Should this parameter have 
been included, only the first message would have been issued. 


[here may be several error messages for the same line of source 
code.- In this case, the error order number, which is printed after 
the asterisks in the message, is used to relate the messages to the 
errors in the source line. This number is also printed under each 
error in the source line as shown in the following example: 


565 586 PERFORM L UNTIL A9 EQUAL TO B9.<- 
| 2 3 
* 5-165 SYNTAX CHECK RESUMED. 
wk Ik 5-162 THIS FEATURE IS A NBS HIGH INTERMEDIATE FEATURE, NOT 


I 
2 
INCLUDED IN THE CURRENT COMPILATION LEVEL. 
week 630 (62 ITEM NOT DECLARED. 
3 5-164 SYNTAX CHECK DISCONTINUED. 


The error under PERFORM results from an error ona previous line. 
The error under UNTIL results from LEVEL = NBS2 used in the $COBOL 
statement. The arrow at the end of the line indicates that there is 
no blank character after the terminating period. Therefore, the last 
eight characters are ignored and the compiler recognized EQUA 
instead of EQUAL. Hence the error messages. 


Map Listings and Cross-Re ference Listings 
Depending on the parameters specified by the user in the $COBOL 
statement, Some or all the following memory map listings and 
cross~re ference listings may be produced: 

- data map and procedure definition listing 

- cross-reference listing (declaration order) 

- cross-reference listing (alphabetic order) 

- procedure map listing 

- perform/alter bucket listing. 
These listings are always printed in the order shown above. However, 
if a data map/procedure definition listing and cross reference 
listing (declaration order) are both requested by the uSer they are 
combined in a single listing (i.e. only the cross-reference listing 
is produced). 


The parameters which must be specified in the SCOBOL statement to 
obtain map and cross-reference listings are as follows? 


~ MAP produces a data map/procedure definition listing, procedure 
map listing and perform/alter bucket listing. 


= DCLXREF produces a cross-reference listing (declaration order). 
_~ XREF produces a cross-reference listing (alphabetic order). 
Each of the above listings is described in the following paragraphs. 
DATA MAP AND PROCEDURE DEFINITION LISTING 
The data map and procedure definition listing comprises a list of 
all the identifiers in the DATA DIVISION, printed in the order in 
which the identifiers are defined. 
For each identififier the following information is printed: 
- level number (if applicable) 
- name 
- parameter number (if applicable) 
- memory address (if applicable) 
- usage 
- picture string (if applicable) 


- internal line number of the line in which the identifier is 
de fined. 


A sample data map and procedure definition listing is shown ir 
Figure 2-6. The contents of this listing are described below. 


The parameter~number is listed under the heading PN. It is used only 
for identifiers which are included in the USING clause of the 
PROCEDURE DIVISION header or their subordinate, redefining or 
renaming data items, and specifies the position of the parameter 
within the USING clause. 

The memory address of the object generated for each data item is 
shown under the ADDRESS heading. The address is of the form isnisra, 
where isn is the internal Segment number (decimal) and sra is the 
address (hexadecimal) relative to the start of the internal segment 
(for an explanation of segment numbers see Section III, L’.iking). 


Under USAGE there is a description of the type of object to which 
the identifier refers. This description may be one of the following! 


~ GROUP indicates a group item composed of subordinate grouno or 
elementary items. 


- DISP (Display) indicates an elementary item with (usually by 
de fault) USAGE IS DISPLAY. 


- COMP, COMP-1, etc. indicate items defined with one of the 
COMPUTATIONAL options. 


- INX-DATA indicates an index data item. 

- ALPH-NM indicates an alphabet-name. 

- MNEM-NM indicates a mnemonic-—name. 

~ REPORT indicates a report~name 

~- INX indicates an INDEXED file. 

~ REL indicates a RELATIVE file. 

- SEQ indicates a sequential file. 

~ eee~SEQ where the ACCESS MODE IS SEQUENTIAL clause is used. 
~ »ee7*DYN where ACCESS MODE IS DYNAMIC. 

— «ee-RAN where ACCESS MODE IS RANDOM. 

- SORT indicates a sort-file (SD appeared under LN). 


~ INDX=NM indicates an index-name declared by use of the INDEXED 
BY clause in a table description. 


- UNDEFINED indicates a data~name or paragraph-name which is 
referenced, but never declared. 
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Under the PIC-STRING heading there is a simplified version of the 
explicit or implicit picture clause. When the picture string 
includes editing symbols, only the word EDITED is printed. 


Under the heading DEF the internal line number at which the 
identifier is defined is shown. 


The data map and procedure definition listing also contains a list 
of all paragraph-names and SECTION names (NAME) together with the 
internal line numbers at which these names are defined (DEF). This 
list appears at the end of the data map listing and is in the 
sequence in which the paragraph or section names are defined. See 
Figure 2-6 for an example. The type of name is indicated under USAGE 
by PARAWNM or SECT=NM. This list is used in conjunction with the 
procedure map listing. The procedure map listing contains memory 
adresses and internal line numbers. These internal line numbers can 
be related to the containing paragraph or SECTION using this 
listing. 


CROSSREFERENCE LISTING (DECLARATION ORDER) 


A cross-reference listing in declaration order contains all the 
information included in.a data map listing. In addition to this, for 
each identifier, there is a list of internal line numbers for those 
lines which refer to the identifier. See Figure 2-7 for an example. 


This listing is printed in the same sequence and has the same format 
as the data map listing, except that the additional information is 
printed under the heading REF.LINES. More than one reference to the 
Same identifier on a single line is shown by a plus sign following 
the internal line number. An ellipsis (...) indicates that some 
referencing lines are missing. 


CROSS-REFERENCE LISTING (ALPHABETIC ORDER) 


The cross-reference listing in alphabetic order contains all the 
information in the cross-reference listing in declaration order 
except that the lines are sorted into alphabetic identifier order. 
See Figure 2-8 for an example. 


An additional piece of information in the cross-reference listing in 
alphabetical order is the 01 level data-name which appears in 
parenthesis after each non-O!l level data-name. This shows 
record=-name to which each data-name belongs. 
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BOURGAIN BOURGAIN 


USAGE 


GROUP 
GROUP 
DISP 


GROUP 


GROUP 
INOX~NM 
INDX-NM 
GROUP 
O1SP 
OISP 
OISP 
OISP 


GROUP 


GROUP 
OISP 


COMP—2 
O1SsP 


PARA-NM 
PARA-N* 


COBOL LISTING 

CALENDAR DATA MAP AND PROCEOURE DEF INITION LISTING 
LN NAME PN !.DDRESS 
02 OIGIT-EIGHT 1 300254 
O02 DIGIT=-NINE 1 2:0026F 
01 HEADER-DIGITS=R 1 3:0017C 
O2 DIGITS 1 :0017¢ 
QB DIGIT 7 :0017¢ 
01 MONTH-S TATUS 1 200294 
O01 MONTHS TATUS—R 1 200294 

MONTH 1 :002F8 

FIRST~MONTH 1 300300 
02. MONTH-ST. 1 200294 
03 DAY~-OF 1 300294 
O03 MONTH-OAY 1 300295 
03 MAX—MONTH=DAY 1 :00297 
O03 YEAR-DAY 1 :00299 
01 WEEK~DAYS-I 1 300308 
O1 WEEK~DAYS—R 1 300308 
O2 WEEK~DAY 1 300308 
OTL 1 0 :00000 
01 0 2 0 :00000 

INIT 

EXIT=P 

STOP=R 


YEAR~CALENDAR 
INI T-MONTHS 
TITLES 
YEAR~TITLE~LINES 
NORMAL-LINES 
NORMAL~LINE 


PARA-NM 
PARA~NM 
PARA-NM 
PARA-NM 
PARA-NM 
PARA-NM 
PARA-NM 


PIC~STRING 


x(27) 
x€27) 


x(270) 
X€27) 
x¢3) 
Xx(€96) 
X€96) 
x(8) 
9(17) 
9¢2) 
9(2) 
9¢(3) 
x70) 


x(70) 
x¢€10) 


FIX BIN. (31) 


VARIABLE 


13349248 


101 
103 
105 
107 


110 


119 
120 


125 
126 


129 
143 
145 
150 
161 
178 
197 
213 
219 


Iv—c 
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COBOL 


FINO-DAY 


LN 


NAME 


TALLY 


PREC-D-TAB 


PREC~D-TAB-RED 
PRECEDING-DAYS 


OTHER-UNUSED 
DITWEEK~TAB 


DITWEEK-TAB-RED 
DAY-IN~ THE~WE EK 


SPLIT“DATE 
CENTURY 
SHORT-OATE 
MONTHR 
DAY~OF-MONTH 
DAY-OF-FONTH-X 


YEAR 


DAY S~IN-THE=ERA 


FULL—DATE 


DAY~OF-THE-WEEK 
DAY-ITSELF 


BEGIN 
THE~END 


V-50.2 X93.21 


PN 


1 
2 
3 


LISTING 


ADORESS 


11300010 
1300064 
11200070 
1:00078 


1:00078 
41:00078 


»13000A0 


13:000A4 


1:000F0 
13000F0 
1:000F2 
1:000F4 
1:000F6 
1:000F6 
14s000F0 
13s OOOF8 

090000 

00000 


00000 


BOURGAIN BOURGAIN 
CROSS-REFERENCE LISTING CD ECLARATION ORDER) 


USAGE 


DISP 
OISP 
OI SP 
GROUP 


GROUP 
DISP 


GROUP 
GROUP 


GROUP 
DISP 


GROUP 
b1SP 
GROUP 
DISP 
O1SP 
DISP 
DISP 
DISP 
DI SP 
bISP 
DISP 


PARA-NM 
PARA~NM 


PIC=STRING 


9¢5) 
9(10) 
9(5) 
x(36) 


X(36) 
9(3) 


KC4) 
x(70) 


x¢€70) 
x¢10) 


x8) 
9¢2) 
X (6) 
9(2) 
9(2) 
x(2) 
9(4) 
9(10) 
x(8) 
9¢4) 


x10) 


DEF. 


112 


13:42:36 MAR 314 1978 PAGE 


REF. LINES 
NOREF 
95 96 97 98 99 100 105 


105 106 107 109 110 111 


89 94 


90 944 95 $7 99 
87 96 98 100 105 
78 81 

78 110 

78 111 


NOREF 
NOREF 


Cyc 
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USAGE 


PARA-NIM 
DISP 
DISP 
DISP 
DISP 
DISP 
DISP 
DISP 
GROUP 
GROUP 
DISP 
DISP 
GROUP 
GROUP 
GROUP 
D1SP 
GROUP 
GROUP 
DISP 
PARA=-NM 
DISP 
DISP 


COGOL V-50.2 X93.1 LISTING 
FIND-DAY CROSS-REFERENCE LISTING (ALPHABETIC ORDER) 
LN NAME JOORESS 
BEGIN 
O2 CENTURY (SPLIT-DATE) 11:000FO0 
O02 DAY-IN-THE-WEEK (OITWEEK-TAB—RED) 1: 000A4 
O01 DAY-ITSELF 00000 
03 OAY-OF=MONTH (SPLIT-DATE) 1: 000F6 
03 DAY-OF-MONTH=X (SPLIT=DATE) 1:000F6 
O1 DAY—OF—THE-WEEK 00000 
O1 DAYS-IN-THE-ERA 1: 000F8 
OT DITWEEK-TAB 112 O00 A4 
O01 DITWEEK-TAG—RED ‘1s Q00A4 
O01 FULL=DATE 00000 
03 MONTHR(SPLIT~ DATE) 13000F4 
01 OTHER-UNUSED ‘1: 000A0 
01 PREC~D~-TAB 1:00078 
01 PREC-—D~-TAB=RED 1200078 
O02 PRECEDING-DAYS (PREC—D~-TAB—RE D) 1:00078 
O02 SHORT-DATE (SPLIT-DATE) '1:000F2 
O1 SPLIT-DATE 1: 000F0 
77 TALLY 112300010 
THE-END 
O1 x 1200064 
01 Y 1300070 
O01 YEAR 1:000FO 


OI SP 


BOURGAIN BOURGAIN 


PIC-STRING 


9(2) 
x10) 
x(10) 
9¢2) 
x(2) 
91) 
9(10) 
x(70) 
x(70) 
x8) 
9(2) 
X(4) 
X(36) 
X(36) 
9(3) 
x(6) 
x(8) 
9(5) 


9(10) 
9(5) 
9(4) 


DEF. 


13242236 MAR 31, 1978 PAGE 


REF. LINES 


NOREF 
BG 

111 

78111 

88 

82 

78 110 

87 96 98 100 105 

NOREF 

NOREF 

78 81 

89 94 

NOREF 

NOREF 

NOREF 

89 

83 

81 83 

NOREF 

NOREF 

95 96 97 98 99 100 105 
105 106 107 109 110 111 
90 94+ 95 97 99 


10 


PROCEDURE MAP LISTING 


The procedure map listing consists of a table of PROCEDURE DIVISION 
internal line numbers and the corresponding starting memory 
addresses for the generated object code. See Figure 2-9 for an 
example. 


The memory address is of the form isntsra, where isn is the internal 
relative to the start of the internal segment. The listing is 
printed in memory address order so that the user can quickly obtain 
an internal line number from a corresponding memory address. [his is 
necessary when a user program terminates abnormally and a memory 
address is printed in the Job Occurrence Report. 


A memory address is printed for each statement in the PROCEDURE 
DIVISION. Therefore there will be several memory address for the 
same internal line number if there is more than one statement on a 
source line or if the statement implies several simpler statements 
(e.ge MOVE CORRESPONDING) . 


Internal line numbers will normally be in ascending order in the 
procedure map listing. However, if the user has segmented the 
program using COBOL segment numbers, the object code may be 
rearranged by the compiler. If this occurs, internal line numbers in 
the procedure map listing will not be in ascending order. In this 
case the complete procedure map listing is reneated in internal line 
number order. That is, two listings are produced, one in memory 
address order and one in internal line number order. 


PERFORM/ALTER BUCKET LISTING. 


The information in the perform/alter bucket listing may be used in 
conjunction with a load module dump to trace the flow of control 
through the load module which occurred prior to an abnormal 
termination. (Note that this listing has no connection with the 
alter listing or alter facility). The listing contains the following 
information: 


~ The start address of the 4~byte bucket associated with each 
paragraph or SECTION that is the last in a sequence of 
paragraphs or SECTIONs referenced in a PERFORM statement. At 
execution time, if a paragraph or SECTION is being per formed, 
this bucket will point to the instruction following the PERFORM 
statement which last performed the paragraph or SECTION. If the 
paragraph or SECTION is not being pé@rformed, the bucket will 
contain the address of the next paragraph. 


- The start address of the 4-byte bucket associated with each 
paragraph referred to in an ALTER statement. At execution time 
this bucket will point to an address corresponding to the’ 
current value of the GO TO in the ALTER paragraph. 


py-z 
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COBOL v-50.2 X93.4 LISTING BOURGAIN BOURGAIN 13:49:48 MAR 314 1978 PAGE "1 
CALENDAR PROCEDURE MAP LISTING 
BEGIN LINE  8EGIN LINE BEGIN LINE BEGIN LINE BEGIN LINE BEGIN LINE 
2:000246 130 2:0004€ 131 £2:00056 ‘132 2:00160 135 2:0016¢ 135 2:00174 136 
2:001946 137 2200198 138 2:0020C 139 2:00240 142 2:0027¢ 144 2300298 146 
2:002A6 151 2200284 152 2:002€8 (154 2:002F6 155 2:002FE 156 2300324 157 
2:00332 158 2:0033A 159 2300364 162. 2:00376 163 2:0037E 164 2:0038A 165 
2:00382 167 2:003G€ 168 2:003CA 1169 2:00306 171 £2:003DE 172 2:003EA 173 
2:0041€ 176 2:0042E 179 2:0043A 180 2:00470 181 2:004A4 183 2:004AE 184 
2:004C2 189 2:00402 193 2:00508 1946 2390514 195 2200552 198 2:0055E 199 
2:00568 200 2:00578 201 2:00596 22  2:005A0 203 2:00580 204 2:005CE 205 
2:00508 206 2:005€8 207 2:00606 108 2200610 209 2:00620 210 2:0063E 211 
2200678 214 2:00688 215 2:00696 216 2:006DA 218 2:00714 220 2:00724 221 
2:00730 222 2:00746 223 2:0076E 124 2:00796 225 2:007AA 226. 2:0078A 228 
2:007C6 229 2:00702 230 2:007€2 @31 «=. 2:007F2 «=. 232s s007FE =—.2333—— 2200808 = 233 
2:00824 126 2:0083A 126 2200840 1126 
COBOL V-50.2 X9324 LISTING BOURGAIN BOURGAIN 13:49:48 MAR 314 1978 PAGE 12 
CALENDAR PERFORM/ALTER BUCKET LISTING 


LINE BEGIN 


150 13 


00362 


LINE BEGIN 


161 13003 66 


LINE BEGIIP 


178 1s 


00 26A 


LINE BEGIN 


197 1:0036E 


LINE BEGIN: 


213 1300372 


LINE BEG 


219 1:30 


IN 


0376 


For each such address, the internal line number of the relevant 
paragraph or SECTION is given.before the address in ascending 
internal line number order. 


See Figure 2-9 for an example. 


Summary Page 


A sample summary page is shown in Figure 2-10. The information 
contained on this page is discussed in the following paragraphs. 


COBOL V-50.2 X9301 LISTING BOURGAIN BOURGAIN 13342336 MAR 314 1978 
FIND-DAY COMPILATION SUMMARY 


SUMMARY OF ERRORS 


ON LINES Aw? 40 8,44 83 
ON LINES 83 110 


»* » 


ooww 


CU PRODUCED ON LIBRARY sOQQO0093.TEMP.CULIB 


SEGMENT NAME TYPE’ SIZE CIN BYTES) 
FIND-DAY.0 eel 99 
FIND-DAY.1 oD. 278 
FIND-DAY.2 Cue 434 

. STACK 68 


RUN TIME PACKAGE PROCEDURES INVOKED 


NONE 


Figure 2-10. Sample Summary Page 


SUMMARY OF ERRORS 


PAGE 


This shows the number of observation (x), warning(**), serious error 


(xxx) and fatal error (****k) conditions detected by the compiler. 
The internal. line numbey of the first 10 lines for which the 
compiler has output a message is shown for each type of message. 


When necessary the internal line number is prefixed by "A." or "S." 


to differentiate between the alter listing, source listing and 
expanded source listing. 


CU PRODUCED 


If a compile unit has been produced by the compiler the message CU 
PRODUCED ON LIBRARY: ... is printed. If no compile unit has been 
produced the compiler prints NO CU PRODUCED. 


SEGMENT LIST 


The segment list contains a list of the internal segments produced 
by the compiler. For each internal segment the type and size is 
given. The type can be code (C..), data (.D.), linkage (..L) or code 
and linkage (C.L). In addition, when COBOL segment numbers are used 
in SECTION headers of the PROCEDURE DIVISION, the COBOL segment 
number from the COBOL SECTION header is printed. 


The name of an internal segment is the program-name followed by a 
period and the internal segment number. Extra segments are generated 
when the DEBUG parameter is included in the SCOBOL statement (for 
Program Checkout Facility). The names of these segments include 
“WUPCF" at the end of the program-name. Tables generated as a result 
of a USE FOR DEBUGGING statement also form an extra segment whose 
name is the program-name suffixed by "_DBG". For an explanation of 
segment numbers see Section III, Linking. 


At the end of the segment list the initial size of the ring 3 stack 
is given. This size does not include the standard part of a stack 
frame, nor the parameter area. [The size of each segment is also 
given to help in segmenting the program (see Section VII) and 
calculating working set requirements. 


RUN-TIME PACKAGE PROCEDURES 


A list of the run-time package procedures referenced by the compiled 
object code is printed. 


Job Occurrence Report Summary 


A summary of the compilation (message CBLO2) is printed in the Job 
Qeccurrence Report... This summary contains the program name, the 
number of error messages of each type and an indication whether the 
compile unit was produced. An example of. this summary is as follows: 


CBLO2. SUMMARY FOR FIND-DAY *382 **:4 CU PRODUCED. 


Note that if there was no PROGRAM=-ID paragraph in the program or if 
the source program could not be found by the compiler, the 
program—name in the Job Occurrence Report summary would be generated 
by the compiler according to the current system date and time.-This 
type. of program-name is described in Banner Page, above. 


ABNORMAL COMPILER TERMINATION 


Abnormal termination of the compiler occurs when the compiler 
detects an abnormal situation. The most frequent errors are 
associated with an abnormal return code generated while performing a 
system function. 


For such errors, a fatal diagnostic is printed out in the 
compilation listing, and an error message is written in the Job 
Qecurrence Report with the following formats 


CBLOI. ERROR [AT address] WHILE COMPILING (LINE xxx OF] program-id 
{RETURN CODE IS re FROM siuic (G4 = xxxxxxxx)] [ON file] 


The diagnostic in the compilation listing specifies which kind of 
error was encountered. For example? 


B-92 CULIB IS FULL. 

8-93 140 ERROR ON CULIB. 

9-55 WORKn IS FULL. 

9-45 UNRECOVERABLE DIFFICULTY DUE TO SYSTEM ERROR. 


Another error message can be written in the Job Occurrence Report 
without a corresponding diagnostic in the compilation listing: 


CBLOI. ERROR WHILE COMPILING program-id. LISTING FILE EXHAUSTED. 
This means that the file on which the compilation listing is written 
(either a standard SYSOUT subfile, or a PRIFILE sequential file or a 
PRTLIB library) is full. 

It is possible that, in unusual situations, the compiler will detect 
an internal problem and will issue a fatal diagnostic identifying 
this problem. For example: 

Q=-nn COMPILER ERROR. text. 
or: 

X-nn IMPLEMENTATION RESTRICTION. text. 
or possibly: 


9=nn UNRECOVERABLE DIFFICULTY 
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SECTION III 
LINKING 


SLINKER is a Level 64 utility which builds an executable load module 
from a set of compile units. These compile units may result from the 
compilation of programs written in different source languages. 
SLINKER resolves all references between compile units and sets up 
links to COBOL run-time package procedures and system procedures 
which are resolved at run-time. 


Notes: The system recognizes three forms of segment number during 
compilation, linking, program loading and execution. To avoid 
confusion in this and later sections these forms of segment number 
are explained below? 


- COBOL Segment Number. This is the segment number specified by 
the programmer in the section header of a COBOL program. The 
COBOL segment number is included in the segment list produced - 
by the COBOL compiler. 


- Internal Segment Number. This is the segment number generated 
by the COBOL compiler to identify the segments within a compile 
unit. It is this number which appears to the left of the colon 
in the SCOBOL data map, cross-reference and procedure man 
listings. Internal segment numbers are also included in the 
segment lists produced by the COBOL compiler and by SLINKER. 


- SLINKER Segment Number. This is the segment number generated by 
SLINKER to uniquely identify each segment in the load module. 
It is formed from a concatenation of segment table number and 
segment table entry (stn.ste). SLINKER segment numbers are 
included in the segment list produced by $LINKER and in the 
memory dump listing. 


JOB CONTROL LANGUAGE 


ae extended JCL statement S$LINKER is used to execute the SLINKER 
utility. 


SLINKER generates a load module and a listing. The load module may, 
optionally, be stored in a temporary or a permanent library. 
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Figure 3-1 shows the format of the $LINKER statement. 


: 


LINKER \1load-module-name 


ix 


[,ENTRY = compi le-unit-name] 
\( Library- fi le-deseription) 
sOUTLIB = TEMP 
»\COMMAND = “linker-command [,linker-command]...? 
COMFILE = *input—enc losure-name 
(library-file-description,SUBFILE=member-name ) 
[,STEPOPT = (step-parameters) | $ 


Figure 3-1. SLINKER Statement Format 


As the SLINKER statement is extended JCL, it must not appear inside 
a step enclosure. The following example illustrates the use of this 
statement: 


$JOBs.. 
LIBALLOC LM, (LM.LIB, SIZE = 5), MEMBERS = 1003 
LIB CU INLIBI = CU.LIBS 
LINKER PROG4, 
ENTRY = PROGI, 
QUTLIB = LM.LIB3 
$ENDJOB3 


The SLIBALLOC LM statement is used to create a library, LM.LIB, with 
a size of 5 cylinders (this utility need not be used if the library 
already exists). The $LIB statement is used to set up a “search 


path" for SLINKER to enable 
SLINKER will look in CU.LIB 
PROGI (specified in ENTRY = 
point for building the load 
be stored in library LM.LIB 


The following paragraphs des 
in the SLINKER statement. 


Load-module-~name Parameter 


it to find the referenced compile units. 
for a compile unit with a member-name 
PROG!). This is used as the starting 
module. The resulting load module will 
witn the name PROG4. 


cribe the parameters which may be used 


This parameter is used to specify the name of the load module 


created by SLINKER. 


If there is no ENTRY paramet 
compile unit (at which linki 
name as the load module. Dur 
advisable to use the same na 


er in the SLINKER statement, the main 
ng starts) is assumed to have the same 
ing the development of a program it is 
me for the source program, the compile 


unit and the load module. It should therefore be normal practice to 
omit the ENTRY parameter from the SLINKER statement. 
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It is not possible to use the same name in this way if calling and 
called programs are used (see Section VI) because there will be 
several source programs and compile units for a single load module. 
However, it is advisable to adopt a systematic convention for 
program naming. For examples 


~ Load module INV comprises compile units INV-A, INV-B and INV-C 
which were compiled from source programs INV-A, INV-B and INV-C 
respectively. 


~ Load module UPDATE comprises compile units MAIN-UPDATE and 
ADMIN-UPDATE which were compiled from source programs 
MAIN-UPDATE and ADMIN-UPDATE respectively. 


indicates that a series of load modules is to be linked during a 


An asterisk (*) may be specified instead of load-module-name. This 
single execution of $LINKER. See Serial Linkage, below. 


ENTRY Parameter 


This parameter specifies the (main) compile unit to be used as the 
starting point when building the load module. It can be omitted if 
the name.of the main compile unit is the same as load-module-name. 


When the ENTRY parameter is used the COMMAND parameter must he 
omitted. 


OQUTLIB Parameter 


The OUTLIB parameter specifies the library in which the resulting 
load module is to be stored. A library-file-description or the 
keyword TEMP may be used in the OUTLIB parameter. 


If a library is specified, it must have been allocated previously by 
the SLIBALLOC LM utility (see the Library Maintenance Reference 
Manual) unless the SIZE parameter is used in the 

library- file-description of OUTLIB. If TEMP is specified, the load 
module will be written as a member of a temporary system library. 


If the OUTLIB parameter is omitted, this is equivalent to 
QUTLIB = TEMP. 
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The load module is stored in a library according to the following 
rules: 


~ If a load module of the same name is not already present in the 
library, and there is no fatal SLINKER error, the load module 
is stored in the library with the load-module-name given in the 
SLINKER statement. 


~ If a load module with the same name (normally a former version 
Of the load module) is in the library and there is no fatal 
linking error, the old load module is deleted and the new one 
replaces it. If there is a fatal error during the linkage no 
load module is stored’ the old load module is still usable. 


When an old version exists in the load module library, it fs good 
practice to use a new load-module-name for storing the new load 
module to assure retaining the old and new versions together until 
the new one is proven executable. Once the new load module is 
debugged, the old version can be deleted and the new one renamec 
with the old name. Deletion and renaminy are done using SLIBMAINT 
LM. Details of S$LIBMAINT LM are given in the Library Management 
Manual. 


Alternatively, the user can maintain a "stable" and a “develonnant"™ 
library. The stable library should contain a working version of each 
program. The development library should contain the latest version 
of each program currently being developed and tested. Once 
successfully tested, programs can be moved from the development 
library to the stable library. 


COMMAND and COMFILE Parameters 


The COMMAND and COMFILE parameters allow the user to specify a set 


-of commands to be obeyed by S$LINKER during the linkage process. 


Several different commands may be specified, but the only ones of 
interest to the COBOL programmer are the ENTRY, INCLUDE and VACSEG 
commands. These commands are described in the following paragraohs. 
The COMMAND and COMFILE parameters may also he used to sneci fy a 
series of load modules to be linked during a single execution of 
SLINKER. See Serial Linkage, below. 
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ENTRY COMMAND 


The format of the ENTRY command is? 
ENTRY = member~name 


This command has exactly the same function as the ENTRY parameter. 
When the COMMAND parameter is used in the SLINKER statement the 
ENTRY parameter cannot be used. The ENTRY command should be used 
instead. 


INCLUDE COMMAND 


The format.of the INCLUDE command is as follows: 


member~namel,member-name]j... 
INCLUDE = INLIBn 


This command is used to specify a list of compile units which are to 
be included in the load module as if they had been referred to by 
another compile unit. If the INLIBn option is used then all compile 
units.of the library specified by INLIBn are included in the load 
module. INLIBn refers to the library specified in the corresponding 
INLIBn parameter in the SLIB statement preceding the SLINKER 
statement. “"n" may have a value from ! to 4. 


The INCLUDE command is used to incorporate compile units referred to 
in the COBOL “CALL identifier" statement. This form of the statement 
does not specify a program name at compilation time, so $LINKER 
cannot automatically incorporate the required compile unit into the 
load module. This has to be done by the programmer by using the 
INCLUDE command, which names all the compile units which may 
possibly be named in the data item referenced by CALL. 


VACSEG COMMAND 


The format of the VACSEG command is as follows: 
VACSEG = (SHARE = +a) 


This command must be used if "multi logical unit files" are to be 
used in the COBOL program. See Section IX for an explanation of how 
to calculate the value of "a", 
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STEPOPT Parameter 


The STEPOPT parameter can be used to specify one or more of the 
parameters included in the $STEP statement (see the Job Control 
Language Reference Manual). However, the following cannot be 
included in the STEPOPT parameter for SLINKERs. 


- load-modu le-name 3 


TEMP, SYS or library-file-description? 


the ALL option of the DUMP parameters 


the OPTIONS parameter. 


Library Search Path 


A SLIB CU statement may precede the SLINKER statement to define a 
search path for the compile units to be linked. Up to four compile 
unit. libraries can be specified in the search path. If no $LIB CU 
statement is active, $LINKER will search the TEMP comoile unit 
library. 


User compile units may be created in the same job as the SLINKER 
execution. If so, compile units may be in the system compile unit 
library specified by TEMP in the SCOBOL CULIB parameter. In such a 
case TEMP must be included in the search path of S$LINKER (unless all 
compile units involved in the linking are in TEMP). For example: 


LIB CU, INLIBI 


USER.LIB, 
INLIB2 


TEMP $ 


SERIAL LINKAGE 


SLINKER can link a series of load modules during a single execution. 
In order to do this an asterisk (*) is specified in the SLINKER 
statement instead of load-module-name. The only other parameter 
which is permitted in such a $LINKER statement is either COMMAND or 
COMFILE. The COMMAND or COMFILE parameter is used to specify a set 
of parameters for each load module to be linked. 


3-06 


For example: 


LINKER *, : 
COMMAND = “LOAD-MODULE-1, ENTRY = ALPHA, 3- 
LOAD-MODULE~2, $- 
LOAD-MODULE-3, ENTRY = BETA, 37 
LINKER x, | 
— COMFILE = *CMDs 
$INPUT CMDs 


LOAD“MODULE~-1!, ENTRY = ALPHA, 3 

LOAD-MODULE-2, $ 

LOAD-MODULE~-3, ENTRY = BETA, 3 
SENDINPUT$ 


Note that there must be a comma after each parameter including the 
final parameter for each load module (i.e. immediately before the 
semi-colon). Also, when the COMMAND parameter is used, the 
parameters for each load module except the last must be followed by 
a hyphen (i.e. the semi-colon must be followed by ~). 


OPERATION OF $LINKER 

The way in which SLINKER builds a load module will be shown by 
discussing a particular example. 

Suppose that a COBOL program comprises a main program, MAINPAY, 
which calls a program EDITION, which in turn calls a program GETDATE 
(see Section VI, Calling and Called Programs). The relationships 


between these programs and the run-time package and the system 
routines. might be as shown in Figure 3-2. 


User compile units COBOL run-time System procedures 
package procedures 


H_DFPRE_UOPF 
H_CBL_UOPEN——_———pH_TIMER_UGTI 


H_TIMER_UGTD 
{ 
| 


> H_CBL_UDISPL————H_OPRTR_USDO 


> H_CBL_UCLOSE —————>H_DFPRE_UCFM 
{ | 

EDIT 10N—————————-PH_CBL_UDMRC —————-}PH_CK_UCHKPT 
| 


GETDATE —————__|______________—H_TIMER_UGDT 


Figure 3-2. Structure of a linked program 
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The procedures named in this linkage are of three origins: 
~ User compile units resulting from COBOL compilations; 


~ Run-Time Package? a group of procedures used by COBOL programs} 
they are available in memory in a single copy and are not built 
into the load module3 


~ System procedures? the parts of the system handling user I/0 
requests. etc’ they are not built into the load module. 


SLINKER, starting with the main compile unit (MAINPAY) scans the 
object code for all unresolved external references. After 
incorporating each compile unit that resolves such a reference 
SLINKER descends to the next level in the hierarchy and resolves the 
references made in the incorporated compile units. This procedure 
continues until all external references which can be resolved are 
resolved. References to the COBOL run-time package and some system 
procedures are not resolved until run-time. 


PRINTED OUTPUT 


The following paragraphs describe the printed outnut produced by 
SLINKER. The output is described in the order in which it is 
produced under the following headings? 

- Banner page and SLINKER commands listing. 


~ Included compile units (if any). 


Task listing. 


~ Group information. 


Linkage report and end page. 


Banner Page and SLINKER Commands Listing 


An example banner page and an example SLINKER commands listing are 
shown together in Figure 3-3. All commands included in the COMMAND 
parameter of the SLINKER statement are listed in the SLINKER 
commands listing. 
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Included Compile Units 


Details are printed for each compile unit included in the load 
module as a result of using the INCLUDE command. The format of this 
listing is similar to the Task Listing (see Figure 3-4.) 


The heading for each compile unit shows the compile unit name, the 
library from which the compile unit was taken, the date and time at 
which the compile unit was created and the name (i.e. language) and 
Version.of the compiler which generated the compile unit. 


For each compile unit a list.of symbolic references (SYMREFS) is 
printed. A symbolic reference is a reference to an entry point or 
data item in another compile unit. Such a reference remains in 
symbolic form (iee. in the form of a label) because it cannot be 
converted into an address at compile time. The following information 
is printed for each symbolic reference: 


~ SYMREFS The labels which are being referenced. 


- TYPE The type of reference. DATA indicates a reference 
to a data item.. PROC indicates a reference to a 
compile unit entry point. 


~- LOCATION The location at which the symbolic reference was 
made. This is in the form stn.ste.sra. where stn 
is the segment table number, ste is the segment 
table entry and sra is the address relative to the 
start of the segment. 


- MATCH.DEF.IN The compile unit in which the referenced label was 
found by SLINKER and the address of this label in 
the form stn.ste.sra. If the referenced label 
could not be found in any compile unit in the 
library search path (defined by SLIB CU), the 
comment **NOLINK** is printed instead of the 
compile unit and address. 


Symbolic references which begin H. are not listed unless there is an 
error report for that reference. 


Task Listing 


There is. a task listing for each task in the load module. An example 
task listing is shown in Figure 3-4. 


A load module will contain more than one task only if it contains 
two or more sequences of program code which may be executed 
asynchronously. This type of processing is not possible in load 
modules written entirely in COBOL (unless the Message Control System 
is being used). For this reason there will normally only be one task 
listing for a COBOL program. This listing starts with the heading 
TASK = MAIN, 
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The first item in the task listing concerns the task entry-point 
(the point at which execution begins). [he name of the entry point 
and the name of the containing compile unit are printed. For COBOL 
programs these names are identical. The location of the entry-point 
is shown in the form stn.ste.sra. 


The remainder of the task listing consists of a list of all the 
compile units in the task together with details of the symbolic 
references in each compile unit. This part of the task listing nas a 
format similar to the list of included compile units described 
above. Compile units which are listed in the list of included 
compile units are not repeated in the task listing. Symbolic 
references which begin H. are not listed unless there is an error 
report for that reference. 
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Figure 3-3. Sample Banner Page and S$LINKER Commands Listing 
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ENTRY POINT = CALENDAR LOCATION: 08. 0C. C0000 8 IN CU: CALENDAR 
O.CU= CALENDAR FROMSINLIB1 CREA VED ON 3/31/78 AT 13249248 BY: COBOL 50.2 
-~SYMREFS TYPE LOCATION MATCH. DEF IN 
1.PRT DATA 08.0C.00 (044 **#_ BLANK**/08.10.000000 
1e.H_CBL_UOPEN PROC 08.0C.00(070 **NOLINK** 
wee WARNING 2604 UNRESOLVED REFERENCE 
1,.H_CBL_UCLOSE PROC 08.0C.00(078 **NOLINK#* 
wete WARNING 2604 UNRESOLVED REFE FENCE 
1eH_CBL_USTOP PROC 08.0C.00(080 **NOLINK*#«& 
ket WARNING 2604 UNRESOLVED REFERENCE 
TS FIND-DAY PROC 08.0C.000092 FIND~DAY/08.11.000008 
1.CU= FIND-DAY FROMZINLIB1 (REATED ON 3/31/78 AT 13247:24 BY: COBOL 50.2 


(CALENDAR ~— CONT'D) 


~SYMREFS TYPE LOCATION MATCH. DEF IN 
T.HICBL_UDMRC PROC 08.0C.00(OC2 **NOLINK** 
weae WARNING 2604 UNRESOLVED REFERENCE 


Group Information 


A sample group information listing is snown in Figure 3-5. This 
listing contains information concerning the entire process grotlo 
({.e. the entire load module). The listing is in two parts: 


- Global segment list. 
~- Segment list. 


Global segments are data segments which can be referenced from nore 
than one procedure segment. They contain records which have been 
declared EXTERNAL in the COBOL source program (see Section VI). The 
global segments listing contains the segment name and the SLINKER 
segment number (stn.ste) for each global segment. Also listed are 
the data-names and internal-file-names within each global segment 
and their corresponding segment relative addresses (sra). 


The. segment list, on the other hand, contains an entry for each 
Segment in the load module (including global. segments but excluding 
segments with a name beginning H_). The segment list is the most 
useful part of the SLINKER listing for the following reasons: 


- The SLINKER segment number and internal segment number are 

' shown for each segment generated directly from user source 
code. The relationship between these segment numbers has to be 
known when tracing the origin of abnormal step terminations and 
in analyZing memory dump listings (see Section IV). 


~ The size of each segment in bytes is shown. This may be useful 
when segmenting a COBOL program (see Section VII) and when 
estimating working set requirements for program execution. 


The headings and information in the segment list are as follows? 
SEG.# SLINKER segment number in the form stn.ste 


IN CUs The name of the segment as it appears in the. segment 
list of the COBOL summary page. Segments which are 
generated directly from user source code have a name of 
the form cun-isn where cun is the compile unit name and 
isn is the internal segment number. 


TYPE This indicates that the segment contains code (C..), 
data (.D.) or linkage information (..L). Combinations of 
these types are also possible (e.g. C.L when the CODAPND 
parameter is specified in SCOBOL). 
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SH This indicates the shareability of the segment. It can 
have the following value: 


1 The segment can be shared between certain process 
groups in the system. 


2 the segment can be shared between all the processes 
of the process group. 


3 The segment is private to a process. 
RF This indicates the residence factor of the segment. 


RD,WR,EX These indicate the minimum protection ring values which 
other segments. must have in order to read from, write to 
Or execute the current segment. 


WP,EP Wor E under these headings indicates that the segment 
may be written to (modified) or executed. 


G.S G or S under these headings indicates that the segment 
is a gate or semaphore segment . 


SIZE This indicates the size of the segment, in bytes. 


MAXSIZE This indicates, in the case of a variable length 
segment, the maximum size of the segment, in bytes. Note 
that SIZE and MAXSIZE values are needed for working set 
calculations. The calculation of working sets is 
described in the System Management Guide. 


CONT.P. Names processes which "contain" the segment. An asterisk 
(*) under this heading indicates that all processes in 
the process group have access to the segment. Since most 
COBOL programs consist of only one process, an asterisk 
Will normally be found under CONT.P. 


Linkage Report and End Page 


An example linkage report and an example end page are shown together 
in Figure 3-6. 


The first line of the linkage report contains either “ERRORS 
DETECTED" or "NO ERRORS DETECTED". If no errors have been detected 
the linkage report ends immediately after printing the line “OUTPUT 
MODULE PRODUCED ON LIBRARY library-name". However, if errors have 
been detected a summary of errors is now printed. 
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GLOBAL SEGMENTS 


SEGNAME SEG NUM CONTAINS: 

H_U_LBIFN 09.08 LOCATION LOCATION 
HICBL_DRTP (2 000000 H_CBL_OLCSP 000034 

H_CBL_ORTP 08.0F LOCATION LOCATION 
HICBL_LORTP (1 000000 

-.~SLANK 08.10 LOCATION LOCATION 
PRT 000000 


SEGMENT LIST 


SEGA IN CUS TYPE SH RF RD WR EX WP EP GS SIZE MAXSIZE CONT.P. 
08.0C CALENDAR.O eel 3 3? 3 3 +3 208 * 
08.00 CALENDAR.1 20. 3 7 3 3 3 #W 1408 * 
08.0& CALENDAR.2 Cer 3 3 3 3 3 E 2256 a 
O8.0F HUCBL_ORTP eO 3 =? 3 3 3 W 608 8192 * 
08.10 VCUBLANK oO% 3 ? 3 3 3 W 16 * 
08.11 FINO-DAY.0 eel 3 s 3.-.3- 33 112 * 
08.12 FIND-DAY.1 0%. 3 2 3 3 3 W 288 * 
09.00 Pcs co. 2 2 3 O 3 WE 1232 

09.04 TERMINATION oD. 2 3 3 0 0 Ww $ 96 

09.08 H_UL3IFN oD. 2 2 3 3 3 +W 320 

O9.0E€ SENN. POOL e0 2 73 3 41 1 «OW $ 464 


The summary of errors comprises one or more of the following lines: 


WARNINGS (SEV.1) 38 
ERRORS SEVERITY 2 1 
ERRORS SEVERITY 3 8 
ERRORS SEVERITY 4 3 


IodUSD J 


Where "n" is the number of errors in each category. If there are any 
errors Of severity 4 (fatal) an output load module will not be 
produced and the linkage report will end with the line "NO OUTPUT 
MODULE PRODUCED", If there are no errors of severity 4 the linkage 
report will end with the line "OUTPUT MODULE PRODUCED ON LIBRARY 
library-name". 


The end page simply contains the percentage of the total library 
space used by all load modules currently present in the library. 


Error Messages 


Each error detected at linkage time saves at least one test 
execution of the user program. In order to detect as many errors and 
inconsistencies as possible, $LINKER carries out checks on the 
interface between linked procedures. For example, the arguments of a 
calling and called procedure must be compatible in number and 
attributes % external data declared in different procedures must 
have consistent attributes. A complete list of SLINKER error 
messages is given in Appendix C. 


When an error is detected, SLINKER outputs a message at the point in 
the listing at which the error occurred. Error messages have one of 
the following formats: 


**xk* WARNING nnnn message-text 
kkk ERROR nnnn SEVERITY s message~text 


where "nnnn" is the message number, "s" is the severity and 
'tmessaye-text" is an explanation of the Situation. Severity "s" may 
have a value of 2, 3 or 4. (Severity 1! corresponds to a WARNING). 
Severity 4 is fatal and no load module will be output. The total 
number of error messages of each severity is given in the linkage 
report. 


NOTE! When building a load module from COBOL compile units SLINKER 
will almost always output several error messages with a 
message number 2604. If these messages refer to symbolic 
references beginning Hu. they can be ignored by the user. Ihese 
messages simply mean that references to COBOL run-time package 
procedures and certain system procedures have not been 
resolved. These references will be resolved at execution-time. 
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SECTION IV 
EXECUTION 


This section introduces the Level 64 debugging facilities and the 
use of these facilities for program testing. The analysis of user 
program memory dumps is also discussed. Various types of abnormal 
Step termination are described and hints are provided to heln the 
programmer diagnose their cauSe. 


Notes For an explanation of COBOL segment number, internal segment 
number and SLINKER segment number, see Section III, Linking. 


PROGRAM DEBUGGING 


The programmer has two tools at his disposal for program debugging? 


- The insertion of debugging code into the COBOL source program. 
This iS a purely COBOL tool and does not rely upon any facility 
external to the COBOL program, 


- The use of the Program Checkout Facility. This is a facility 
external to COBOL and does not have to be requested within the 
COBOL program, 


The use of these tools is discussed in the following paragraphs. 


Debugging Code 


The following types of debugging code can be inserted in the COBOL 
programs 


- One or more debugging SECTIONS in the PROCEDURE DIVISION 
DECLARATIVE. Such a SECTION includes a USE FOR DEBUGGING 
Statement which specifies the data-names, procedure-names etc. 
that are to be monitored by the remainder of the SECTION. The 
remainder of the debugging SECTION contains normal PROCEDURE 
DIVISION statements, typically DISPLAY, which are executed when 
the data~names, procedure-names etc. are referenced. Debugging 
SECTION code can access a special register, DEBUG-ITEM, that 
contains information such as: the internal line number of the 
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line for which the USE FOR DEBUGGING SECTION is invoked, the 
value and data~name, procedure-name etc. of the data item, 
altered paragraph etc. Note that, among other things, a USE FOR 
DEBUGGING SECTION can be invoked each time a data-name is 
referenced; this facility is not available when using the 
Program Checkout Facility alone. 


- One or more debugging lines anywhere in the program after the 
OBJECT-COMPUTER paragraph. Such a line is identified by a "D" 
in the indicator area (column 7). A frequent practice is to 
insert, in the PROCEDURE DIVISION, DISPLAY statements which 
will display the contents of significant variables at various 
stages of program execution. In fact, any COBOL procedures may 
be coded as debugging lines’ the only requirement is that the 


program be logically consistent both with and without such 
code. 


If the WITH DEBUGGING MODE clause is present in the SOURCE-COMPUTER 
paragraph of the program, the debugging code will be compiled as 
normal program code. If the WITH DEBUGGING MODE clause is absent the 
debugging code will be treated as comment and will not be compiled. 


The presence or absence of the WITH DEBUGGING MODE clause can be 
overridden by the SCOBOL statement oarameters DEBUGMD and NDEBUGMD. 
If DEBUGMD is specified the program is compiled as if a WITH 
DEBUGGING MODE clause was included in the program. If NDEBUGMD is 
Specified any WITH DEBUGGING MODE clause is ignored and debugging 
code is not compiled. 


However, if the debugging code is compiled, the USE FOR DEBUGGING 
SECTIONS will only be executed if the DEBUG parameter is included in 
the $STEP statement. If the DEBUG parameter is absent the USE FOR 
DEBUGGING SECTIONS have no erfect upon program execution. The 
presence Or absence of the DEBUG parameter has no effect upon 
debugging lines (containing a "D" column 7). 


When a load module consists of more than one COBOL program and the 

DEBUG parameter in used in the S$STEP statement, all USE FOR 

DEBUGGING SECTIONs of all programs are activated. However, one can 

deactivate the SECTIONS of one or more of these programs by using 
MM the Program Checkout Facility (PCF) command CHANGE (C): 


C,stn.ste.30 = "OODa"X$ 


a A full explanation of the CHANGE command can be found in the Program 
Checkout Facility Manual. "stn.ste" gives the segment table number 
and the segment table entry corresponding to internal segment number 
Q of the compile unit whose USE FOR DEBUGGING SECTIONS are to be 
deactivated. stn and ste comprise the SLINKER segment number which 
is defined in Section III together with the internal segment number. 
The relationship between the SLINKER segment number and the internal 
Segment number is described under Dump Analysis, below. 
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"a" must be zero for complete deactivation of the USE FOR DEBUGGING 
SECTIONS. 


The USE FOR DEBUGGING SECTIONS may be partially activated. In this 
case the above PCF command must be used with “a" taking a value.of | 
or 2. These values have the following significance: 


1 - The USE FOR DEBUGGING SECTIONS are activated only "ON 
procedure-names",. 


2 - The USE FOR DEBUGGING SECTIONS are activated only "ON 
identi fiers, cd-names and file-names". 


Programs which are not referenced in the above commands have all 
their USE FOR DEBUGGING SECTIONS activated when the DEBUG parameter 
is used in the SSTEP statement, 


USE FOR DEBUGGING SECTIONS Can be activated, partially activated or 
deactivated dynamically by using the "AT" and/or "IF" ontions of the 
above PCF commands . Full activation of all USE FOR DEBUGGING 
SECTIONs in all programs can be achieved by using the above PCF 
command with "a" having @ value of 3. Note that if the DEBUG 
parameter is used in the $STEP statement then, unless commands 
speciry otherwise, all USE FOR DEBUGGING SECTIONS are activated in 
all srograms when execution starts. 


Program Checkout Facility 
The Proyran Checkout Facility (PCF) is a diagnostic system which (if 
requested) is executed in parallel with a user program being tested. 
PCF may be used to monitor the user proyram in the following ways? 
- The flow of program control can be traced through specified 
points in the nrogram. Each time control passes through such a 


ooint, PCF records this fact. 


- The values of specified data items can be changed when control 
reaches snecified noints within the program. 


- The values of specified data items can be dumped when control 
reaches soecified points within the program. 


- Procedures and data can be referred to using symbolic or 
effective addressing. 


- Commands can be applied to selected compile units. 


- Commands can be made conditional upon the value of speci fied 
data items. 


The type of monitoring to be done by the PCF is specified by the 


programmer in a file of PCF commands. The commands used to request 
the above monitoring for example are TRACE, CHANGE and DUMP. 
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The use of the PCF will not be described further in the current 
manual. See the Program Checkout Facility Manual for further 
details. However, the following paragraphs discuss the JCL required 
in order to run the PCF. 


The PCF is requested by including the DEBUG parameter in the SSTEP 
statement of the user program. In addition a sequential file of PCF 
commands must be created and must be assigned to the job step with 
an internal-file-name H_DB. 


In addition to the above JCL it is advisable to include the DEBUG 
parameter (not to be confused with the DEBUGMD parameter) in the 
SCOBOL statement. This parameter causes the compiler to build a 
table of all the source names in the program, with a record of the 
name type (data-name, paragraph-name etc.) and the generated segment 
address. this table is then stored in the compile unit and is 
incorporated in the load module by S$LINKER. It is possible to use 
the PCF in the absence of this table. However, if this is done the 
user must specify the actual memory addresses when referring to the 
code and data in the load module (effective addressing). The 
presence Of the table enables the programmer to refer to data and 
code by the names used in the COBOL source program (symbolic 
addressing). However, the size of these tables should be born in 
mind (about 6Q bytes per source line). A segment containing these 
tables is generated for each 200 lines of source code 
(anproximately). 


The %sh0G narameter in the $STEP statement, in addition to 
requesting tne PCF, has a special effect on two exceptions (see 
uvcention Messages below). These are: 


XOLSEXCEPTION O9-O1 : ILLEGAL DECIMAL DATA... 
EXOL.EXCEPTION 17-02 8 OUT OF ARRAY RANGE... 


wren tine DEBUG parameter is used together with the PCF commands 
RECOVER TLLDEC and RECOVER SUBSCRIPT these exceptions disappear and 
tne step is not abnormally terminated. Instead, the error is 
renorted in the PCF report and action is taken to compensate for the 
error. lhese two exceptions usually occur more often than any others 
during proyram debugging and their suppression can avoid numerous 
unproductive test executions. 


DUMP ANALYSIS 


A memory dump of the user program can be obtained if the DUMP 
parameter is included in the $STEP statement. The dump is only 
printed if the program terminates abnormally. 


It is recommended that the DATA option be used with the DUMP 
parameter. For example: 


STEP PROG!, TEMP, 
DUMP = DATA$ 


The DATA option will produce a dump of data segments only: code and 
linkage segments wili not be dumped. They are not required for user 
programs. 


Structure.of the Dump Listing > 


The dump listing is divided into two parts. The first part contains 
the segments shared by all processes of the process group. The first 
segment in this part is the Process Group Control Structure for the 
step. It is preceded by the following heading: 


KKeKKKKKKKKKK 


KKKKP OCS & kK 
KkKKKK KKK KKK 


See Figure 4-1 for an example.of the first page of a dump. Each 
segment in the dump has a two line header similar to the following: 
/J=02/P=00/ /STN=09/ STE=01/ SEGMENT DESCRPT: 9800F8IB 42000000 
SEGM.HEADR? OOOF8170 OOOF81CO. 00000200 OOOIDDC8. 01032E41 O109890!. 
The only items of interest to the user programmer are the values 
shown for SIN (segment table number) and STE (segment table entry). 
The segments in first part of the dump listing include the 
following? 

- File buffers. 

- Physical channel program segments. 

- Data Management control structures. 


- Job control structures. 


The only segments of interest to the user programmer in this part of 
the dump listing are those containing file buffers. 


The second part.of the dump listing contains the segments which are 
private to the process. The first segment in this part is the 
Process Control Structure for the process. It is preceded by the 
following heading: 


KKKKKKKKEKK 


KKKKPCS KEKE 
kkk kk kkkkk 
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See Figure 4-2 for an example of this heading. The Process Control 
Structure contains the Process Control Block which contains a dump 
of the stacks used by the process. One of these stacks is of great 
interest to the programmer and can be used to isolate the part of 
the user program that was active when the abnormal termination 
occurred. 


The dump of the Process Control Block starts with the following 
heading? 


tock tick PC B kick tek 


The remainder of the second part of the dump listing contains the 
data segments (and code and linkage segments if DUMP = ALL was 
specified) which make up the COBUL program proper. 


The Stack 


For each protection ring in each process there is a “stack”. For a 
normal program there are three stacks. The stack is used each time 
the COBOL program executes a CALL statement. At that time the 
addresses of arguments, the contents of registers and the contents 
of the instruction counter are loaded ento the stack. The stack is a 
last-in-first-out data structure. This means.that data pertaining to 
the last CALL statement executed is at the logical top of the stack. 
Data pertaining to the last-but-one CALL statament executed ts next 
in the stack, and so on. The stack is also used in the same manner 
when an exception occurs or when tine cede geanarated by the compiler 
or containedc within COBOL run-time oackage crvecedures executes an 
instruction equivatent te a COBCL CALL statement. 


Therefore, after an abnormal] terminatton the relevant stack will 


point either to the instruction following the last CALL (or 
equivalent) executed or the instruction at which an exception 


occurred. 
The stack for each ring starts with @ heading such as!8 


RING 3 STACK STN=03 STE=00 SEGDESCR 9CQOB935 FEOCOC7TF 


The ring 3 stack is the one relevant to the user program. See Figure 
4-3 for an example of such a stack. 
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ADddIdVIADIAIAAVAAAAC AAdVAAdAI IDA ADA 
ADIDAAIAAA AANAAAAAIA>AAdAADIAI IAA 
AAIDADADAAD A<AAAAAIIAATAE DADKZI ADB 
MdadgaAdaAA AAAAAA 


dddadd aaa 


0BE49048 01400110 0€170010 
00903000 0N0D0001 
QOuCOunA DUONIVO4S FRFFFFEF FR QO0000000 


v0000009 


60-9 


OUMP 48.39 
O0A8 SAMs OFFF7FFO 
OOAC BRO-7: 01400070 
occ GRO-7: 00000000 
0UE8 XKO-7: 000247E0 
0108 STR: 00000000 
010¢ PTV: 014000AB 
0110 PSA: 014000A8 
0114 ICC: OA83040A 
®COMAREA 
0118 NBP= 00090014 
011C 01400096 0880024 
wSTACK FRAME 003 
*WRK AREA 
*PAG E=082F0000 
0000 =. 208204c5 3300016C 
*SAVAREA 
0008 SAM=™ OFFF7FFO 
000c BRO-7: 3300016C 
oo2c GRO-7: 208204¢5 
0048 KRO-7: 38180026 
0068 STR: 80000000 
a06C PTV: 01400008 
0070 PSA: 01400008 
0074 TCCs OBEGOG6A 
*COMAREA 
0078 NBP= 00000014 


somes 
OU 


HIeYS 4asn ¢ Buty *¢-p ainbyJ 


WWRKAREA 
009C OFFFFFFO 33000088 
00BC 080c0010 03000000 
OODC 0000000A 00000000 
OOFC 00000000 

*SAVAREA 
0100 SAM=® OFFFFFFO 
0104 BRO-7: 33000088 
0124 GRO-7; 00000000 
0144 XRO-7: 00093710 
0164 STR: 7€000000 
0168 PTV: 03000100 
016C PSAs 03000100 
0170 icc: 38180026 

*COMAREA 
0174 NBP= 00000010 


0178 OO0Q002F1 04000C02 
STACK FRAME 002 


#WRKAREA 
*PAGE233000000 
0630 QO300000 FFFFFFFF 
*SAVAREA 
0020 SAM= OFFF7FFO 
0024 BRO-7: 33000000 


0044 GRO-7: 03000000 


x7.24 


01400090 
00000000 
00024890 


0A880028 


01400000 
00000C€ 02 
04000C 02 


0300009¢ 
JON0000E 
00000000 


030000 9c 
00000011 
90000299 


03000000 


38180026 


93000000 
000000 0€ 
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08009000 02000000 00350000 08E40048 01400970 0A880010 
33NNN16C 00000000 x*eeeeee 00000000 00000901 00000000 
N9NNNNN8 38180026 ON0002F1 OOO0D004 FFFFFFF8 00000000 


OA83NN77 = 0A880077 


aaataaaxr 


N809N000 08180026 03000100 03000000 OBE3S020A OBE40010 
NONNANAC OOONOCO? «aeenenee QOOOD000 FFFFFF FD 00000400 
0300N000 38180026 Q00002F1 00000004 FFFFFFF8 00000002 


o07Cc 08E40047 01400000 GBE40045 014NNN04 08&4004B 


RING 3 STACK STNEO3 STEz00 SEGDESCR 9COODDFD FEOO007F 
* v ° 


ORNDNOON 08120000 FFFFFFFF 08000000 33000088 9290209000 00000 000000000000 00 088 

00099020 09080000 7FFFFODS5SS 00000000 00000000 9929009098 0993099903" 30900003 238 

99NNN000 «00000000 00000000 00000000 00000000 99089090008 39909 93902038008 900 00 808 
aaaa 


0809N000 08120166 08120000 08120000 0816096a 080¢C0010 
0N0N0N12 59041000 82051820 O20CC606 FFFFF3FO FRFFFFFFF 
ANENANNN 00001510 00000008 00000056 00000906 00000002 


04F11819 


N4NNNCN? 03000000 FFFFFFFF 00080C00 08000000 239999099000 392993 000900800000 02000 


N8NCNNNR 03000000 FFFEFFFF 08000000 00000000 0c220008 
N0N99920 09080000 #«a*%ee% 00000000 00000900 O000000A 


The stack is separated into stack frames by headings such as? 


*STACK FRAME O01 


Each frame 15 associated with an individual CALL statement (or 
equivalent) or with an exception. The data for the latest CALL or an 
exception is in stack frame OO! of the ring 3 stack. In this stack 
frame the value. of the instruction counter is printed in the 
*SAVAREA next to the characters "ICC". See Figure 4-4 for a sample 
stack frame OO!. 


*STACK FRAME 001 
| *WRKAREA 
*PAGE=33000000 | 
0000 = 000U0000 FFFFFFFF 38170130 02000000 00000000 FFFFFFFF 
*SAVAREA 
0020 SAM=  OFFF 7FFO 
0024  BRO-71 33000000 03000000 08000008 03000000 FFEFFFFF 
0044 = GRO-78 03000000 00000000 00000020 09080000 titi ik 
0060  XRO-7! 00000000 00000000 00000000 00000000 00000000 
0080 STR*  3EQ00000 
0084 PTV: 03000020 
0088 PSA! 03000020 
008C ICC!  380EO09E 
*COMAREA 
0090 NBP= 00000010 
0094  000002F1 02000000 00000000 04F 1 0000 


Figure 4-4. Sample Stack Frame OO! Dump 


In this example the line containing the instruction counter is 4 
lines from the end of the stack frame and reads as follows: 


008C ICC: 380E009E 


The instruction counter is of the form rneeaaaa, where? 

r is not relevant; 

n is the segment table number (stn); 

ee is the segment table entry (ste) 

aaaa is the address relative to the start of the segment (sra). 
The stn, ste and sra point to the machine instruction which was 
‘executing when the program terminated. Normally, the stn, ste and 
sra will also be printed in an exception message in the Job 
Occurrence Report (see Exception Messages, below). [his is useful 
when no dump has been produced. Even if there is a dump the stn. ste 
and sra can be found more conveniently from the exception message. 


The machine instruction indicated by the stn, ste and sra normally 
corresponds to a COBOL statement in the source program. The 
following paragraphs explain how to find the line in the source 
listing which was being executed when the program terminated. Note 
that the stn, ste and sra might not point to an instruction in the 
source listing. This is the case when the program terminates while 
executing an instruction in the prologue or the epilogue of the 
COBOL program or in one of the procedures of the COBOL run-time 
package. 
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The segment. table number and segment table entry when written in the 
form stneste make the SLINKER segment number shown in the segment 
list produced by SLINKER. For example, the instruction counter in 
the above example gives a SLINKER segment number 8.0E. From the 
SLINKER segment list in Figure 4-5 it can be seen that the segment 
with this SLINKER segment number (SEG#) is a code segment (TYPE IS 
C.. in listing) from internal segment number 4 of the compile unit 
COBOLTEST. 


ae ee ge 
SEGMENT LIST 
SEG. # IN CUs TYPE SH RF RD WR EX WP EP G S_ SIZE 


08.0C COBOLTEST.O wh, 3 3: 2b 3 80 
08.0D COBOLTEST. | D. 3 3 3 3 3 W 880 
O8.0E COBOLTEST.4 Ce. 3 3 3 3 3 E 5 76 
O8.0F _ BLANK .D. 3 3 3 3 3 W 144 
09.00 PGCS | cD 862 3303 WE 1120 
09.04 TERMINATION D. 2 3 300 WNW S 96 
09.0B COBOLTEST.2. D. 23 3 3 3 'W 4.000 
09.0C COBOLTEST.3 .D. 2 3 3 3 3 NW 176 
09.0E SEMPH. POOL De. 23 3 1 1 W S 192 


Figure 4-5. Sample $LINKER Segment List 


The procedure map listing produced by S$CQBOL for the indicated 
compile unit (in this example COBOLTEST) should be consulted in 
order to find the internal line number of the COBOL source line 
following the relevant CALL or that at which the exception occurred 
(see Exception Messages, below). The addresses in the procedure map 
listing are formed by concatenating the internal segment number | 
(suffixed to the compile unit name of the $LINKER segment list) with 
the sra obtained from the instruction counter. For example, the 
SLINKER Segment number 8.0E in the above example indicates internal 
segment number 4 of compile unit COBOLTEST. The internal segment 
number (4) should be concatenated with the sra (OO9E) from the 
instruction counter.e- Thus the address to look for in the procedure 
map listing is 4:009E. This address will normally lie between two of 
the addresses shown on the procedure map listing. The earlier 
address should be used as this is the start address of the compiled 
object code. 


Information concerning parameters specified in a CALL (or 
equivalent) is printed in the *COMAREA section of the ring 3 stack 
frames. See Figure 4-4. The first word of the *COMAREA contains the 
number of bytes (hexadecimal) in the list of parameter addresses 
which follows. The addresses are of the same form as the instruction 
counter (stn.ste.sra.). These addresses point to the locations in 
the dump at which each parameter starts (the number of bytes in each 
parameter is not given). The method of finding these locations in 
the dump is described below (Data Division Variables). 
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In order to find the data-name of a parameter for which an address 
is given the following should be done. The internal segment number 
should be obtained from the stn and ste, as described above, and 
should be concatenated with the sra. The resulting address should be 
Searched for in the data map or cross-reference listing fo find the 
data-name. 


Data Division Variables 


The value of any DATA DIVISION data item at the time of an abnormal 
termination can be found from the dumo listing. 


In order to do this a SCOBOL listing is needed which includes at 
least one of the following (see Section II for the associated SCOBOL 
parameters) 3 

- cross-reference listing (alphabetic order) 

- cross~reference listing (declaration order) 3 

- data map and procedure definition listing. 
The address of the data item may be found in one of the above 
listings by referring to the associated data-name. Consider the 
following line from a data map listing: 
LN NAME PN ADDRESS USAGE PIC-STRING DEF « 


. O02 A-KRBAB (KR-KRBAHEADER) }:QOO0EC DISP 9(1) 84 


The address of data item A-KRBAB in this listing is 1:000EC, where 
is the internal segment number of the segment containing the data 
oes OOOEC is its address relative to the start of the segment 
(sra)d. 


— 


To find the address of the data item in the dump the internal 
segment number must be converted into a SLINKER segment number. 


The SLINKER segment list of the abnormally terminated load module 
must be consulted. See the sample segment list in Figure 4-5. From 
this sample it can be seen that the S$LINKER segment number (SEG. #) 
corresponding to internal segment number | is 8.0D. One can veri fy 
that this segment is a data segment from the TYPE which is ".)D.". 
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This SLINKER segment number comprises a segment table number (stn) 
and segment table entry (ste) in the form stn.ste. That is, if the 
SLINKER segment number is 8.0D the stn is 8 and the ste is D. The 

segment containing the required data item can be found by looking 

for the segment header containing the correct stn and ste. 


A sample segment with a header containing stn = 08 and ste = OD is 
shown in Figure 4-6. Each line of a segment dump shows the values 
held in 8 consecutive words of memory. (A word comprises 4 eight bit 
bytes.) The first part of tne line shows the hexadecimal | 
representation of each word. The second part of the line shows the 
EBCDIC representation. At the extreme left of each line are two 
columns of memory addresses. The first column is the address 
relative to the start of the segment (sra). The second column is 
the address relative to the start of memory. 


The addresses in the first column should be searched, for the 
address of the data item as specified in the SCOBOL data map or 
cross~re ference listing. In the above example this address is EC. 
The addresses in the segment dump are those.of the leftmost word on 
each line so the last digit of this address is always zero. So if 
the address EC is being looked for, the line beginning OOEO should 
be selected and the byte with address EC will be the first byte in 
the fourth word from the left (i.e. the 13th byte from the left). 


General Information 
The following information may also be of interest: 


~ the segment whose name is program-name.! (usually pointed to by 
BR2) contains? 
a) at offset 18 (hexadecimal) the program-name. 
b) at offset 36 (hexadecimal) the version of the compiler used 

to compile the program. 

c) at offset 4F (hexadecimal) the date of compilation. 
d) at offset 57 (hexadecimal) the time of compilation. 
These items can be checked to ensure that the SCOBOL and 
SLINKER listings used to analyze the dump correspond with the 
dump listing. 


- When PERFORM and ALTER statements are used in the program, it 
is advisable to determine which of them is active. This can be 
done by requesting that a “perform/alter backet listing" be 
printed by the compiler (MAP parameter in SCOBOL). This listing 
is explained in Section II. 
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JOB EXECUTION MESSAGES 


Messages may be output to the Job Occurrence Report from the 
following sources? 


~ the system$ 


~ COBOL run-time package procedures. 
The types of messages output from these sources are described in the 
following paragraphs. 


Messages Output by the System 


The general format of messages output by the system in the Job 
Occurrence Report is as follows: 


ccenn.etext 


where cc is a two letter classification code and nn is the number of 
the message within its class. The messages are classified according 
to the nature of the system function which generated the message. 
Some of the more common classi fication codes and corresponding 
system functions are: 


CK Checkpoint/restart 
DV Device Management 

EX Exception Handling 
FP File Open/Close 


Nepending on the error class, the text following the code may be a 
brief explanation of the cause of the error or else a further 
numerical classification followed by a return code specification. A 
complete list of classification codes, messages and return codes is: 
given in the Error Messages and Return Codes manual. 


The message may be prefixed by WARNING, FATAL or SYSTEM. The 
significance of these prefixes is as follows: 


- WARNING & Processing conditions are inconsistent with the 
expected conditions but the inconsistency is not severe enough 
to prevent the program execution from continuing. 


- FATAL t This is caused by a serious user, operator or system 
error. Usually, program execution cannot continue and the step 
is abnormally terminated. 


- SYSTEM t This is probably caused by some malfunction of the 
system. Normally the message comprises simply a message class 
and number with no text. Unlike WARNING and FATAL messages, the 
meaning of SYSTEM messages will not be self-evident and should 
be referred to Field Engineering. 
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‘Messages Qutput by COBOL 


The following messages may be output by the COBOL run-time package: 


CBLII.DISPLAY console_displayed string 
CBLI2.1FNtifn RELATIVE KEY CANNOT BE USED 
CBLI3.ACCEPT console_accepted_string 
CBLI4.IFN8i fn ORGANIZATION OVERRIDEN 


CBLIS.IFNsifn RECORD LENGTH CONFLICT [ACCEPTED IN INPUT] 
(length ON FILE) 


CBLI6. ire \ program—-name RC = xxxxxxxx siuic, 
CANCEL retcode AT ADDRESS stn.ste.sra. 


CBLI7.STOP literal 


CBLI8.IFNt:ifn RC = XXXXXxXxXX siuic, retcode Al ADDRESS 
stn.ste.sra program-name [(ILN = 
internal-line [(XLN=external-line] ] 


CBLIO.IFNsifn CONTROL RECORD 101 TRUNCATED 
CBL20.USETST RC = xxxxxxxx Sluic, retcode 


CBL2!1.I1FN8ifn DUMMY FILE NOT DECLARED OPTIONAL IN SOURCE, 
FILE STATUS 9I NEXT RELEASE. 


CBLI!, CBL!I3 and CBLI7 are simply DISPLAY, ACCEPT and STOP literal 
messages which are echoed in the Job ()ccurrence Report when they are 
directed to or from a CONSOLE, ALTERNATE CONSOLE or TERMINAL (see 
Section XI). The remaining messages indicate that an inconsistency 
has been detected. The step will be abnormally terminated if the 
message is CBLI6. If the message is CBLI8 the step will be 
abnormally terminated only if the return code indicates a serious 
error (see the Error Messages and Return Codes manual for a full 
list of return codes). Abnormal termination will not occur for 
message CBLI5 if the file is an input file. Abnormal termination 
will not occur for message CBLI4 if overriding is permitted. 


Exception Messages 


Most abnormal step terminations result from the detection of an 
"exception" by the system. An exception is an error condition 
detected during the execution of an instruction (e.g. illegal 
operation code, illegal decimal data). The system outputs an 
exception message in the Job Occurrence Report whenever an exception 
is detected. Exception messages have a classification code EX. There 
are four possible exception messages: EXO1, EXO3 which are normally 
fatal’ and EX02, EX04 which are non fatal. 
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FORMAT OF EXCEPTION MESSAGES 


The formats of the exception messages are as follows: 


EXO1.EXCEPTION cc~tt & message-text i(messayge-parameter) J 
IN TASK name.nnn ihe ADDRESS } stn.ste.sra 
| RETURNED BYf 
EXO2.EXCEPTION cc-tt & messaGe-text (ime ssage-parameter) ] 


IN TASK name.nnn AT ADDRESS stn.ste.sra 


ES Clit RETURN CODE (mnemonic) GOT 
ABNORMAL RETURN CODE (mnemonic) SET} 
IN TASK name.nnn AT ADDRESS stn.ste.sra 


EXO4.MAXIMUM EXPECTED WARNING COUNT EXHAUSTED 


where & 
cc is the class of exception (decimal). 
tt is the type of exception (decimal). 


message~text is a plain English explanation of the error. 


message-parameter is an optional value to help diagnosis. 


name is the task name from the SLINKER listing 
(normally MAIN). 

nnn is the task occurrence number (decimal). 

stn is the segment table number. 

ste is the segment table entry. 

sra is the segment relative address. 


mnemonic is a character string equivalent to the return code. A 
list of return codes and nmemonics is given in the 
Error Messages and Return Codes manual. 
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Notes: 
- stn.ste.sra are discussed in Dumo Analysis, above. 


- EXO! and EX0O3 are normally fatal. EXO2 and EX04 are non-fatal. 

- An EXO3 message specifying "UNEXPECTED RETURN CODE" indicates 
that the COBOL run-time package has received @n unexpected 
return code from Data Management. An EXG3 message speci fying 
“ABNORMAL RETURN CODE" indicates that the COBOL run-time 
package has requested abnormal termination of the step. 


- EXO3 need not be fatal if the COBOL program contains a USE 
AFTER ERROR PROCEDURE SECTION in the DECLARATIVES for the 
relevant file (See Section IX). 


- EXO4 is printed when more than 99 EXx02 messages have been 
printed for the current step. After EX04 no futher EX0O2 
messages will be printed. 


Four of the more common exception messages are? 


EXOI}.EXCEPTION O9-O1 s ILLEGAL DECIMAL DATA... 
EXO1.EXCEPTION 1 7-02 s OUT OF ARRAY RANGE... 
EXO!.EXCEPTION 06-00 + QUT. OF SEGMENT BOUNDS... 
EXO3.UNEXPECTED RETURN CODE... 


These exceptions are discussed in the following paragraphs. A full 
list of exception messages is given in the Error Messages and Return 
Codes manual. 


EXCEPTION 09-01 ILLEGAL DECIMAL DATA 


This exception occurs when a non-decimal value is moved to a data 
item which is described as numeric or is involved in computation or 
is uSed as a subscript. The following example shows how this can 
happens 


WORKING-STORAGE SECTION. 

71 ZONE PIC 9(4). 

PROCEDURE DIVISION. 

Pl. 
MOVE HIGH-VALUE TO ZONE. 
STOP RUN. 


° 


ZONE is a numeric data item. In the native collating sequence 
(EBCDIC), the figurative constant HIGH-VALUE corresponds to 
hexadecimal "FF", with all bits set to |. This configuration is not 
decimal, hence the exception. 
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This exception disappears if the DEBUG parameter is included in the 
SSTEP statement and the RECOVER ILLDEC command is given to the PCF. 
Instead the error is reported in the PCF report. See the Program 
Checkout Facility manual for details. See Section V of the current 
manual for the format of decimal data. 


EXCEPTION 1 7-02 OUT OF ARRAY RANGE 


This exception disappears if the DEBUG parameter is included in the 
SSTEP statement and the RECOVER SUBSCRIPT command is given to the 
PCF. If this is done the error is reported in the PCF report. 


EXCEPTION 06-00 OUT OF SEGMENT BOUNDS 


This is caused by attempting to access a data item outside the 
memory areas allocated to the segments of the executing program. 


This exception can occur if the SUBOPT parameter is used in the 
SCOBOL statement. Under certain circumstances this parameter can 
result in no array bound checks being performed. Thus the program 
may attempt to access data outside the array, and possibly outside 
the program segments. It is advisable only to use the SUBOPT 
parameter after the program has been debugged. At this stage the 
program should be unlikely to access data beyond array bounds. 


UNEXPECTED RETURN CODE 


This is caused either by a user error or by a system difficulty. 
Some return codes are specific to COBOL programs. They are 


USER 0, RPWUNBUN attempt to use the COBOL Report Writer 
when it is not included in the set 
of features delivered with the system. 


USER 0, ALREADY attempt to INITIATE an already initiated 
report (Report Writer). 


USER 0,NOINIT attempt to execute a Report Writer 
statement when the involved report 
is not in the INITIATEd state (no INITIATE 
has been executed for the report that has 
not been followed by a TERMINATE). 


USER 0,LNERR the data item referenced in the DEPENDING 
ON option of an OCCURS or a PICTURE 
clause lies outside the limits specified 
in that clause. 
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USER 0, JUMPERR 


USER 0, SEQERR 


COBOL 1,RECERR 


COBOL 1,KEYERR 


COBOL 1,WRONGORG 


COBOL 6,NAMEERR 


any other 


attempt to execute a G0 TO statement 
without procedure-~name, before it is 
altered. 


the flow of control attempts to go beyond 
the end of the program. 


the maximum record size of the file is 
not the same as that specified in the 
program.See Record Size, Section IX. 


the number of record keys of the indexed 
file, their position relative to the 
beginning of the record, their 

length and/or the permissible duplicate 
keys are not the same as those 

specified in the program. 


the file assigned has an organization that 
cannot override that specified in the 
program. 


identifier in a "CALL identifier" statement 
does not contain a program-name. 


abnormal code returned by the system, e.g. 
by Data Management if no USE procedure is 
used, by the Message Control System, by the 
sort routines... Refer to the Error 


- Messages and Return Codes manual for a 


description of these return codes. 
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COBOL 1,KEYERR 


COBOL 1, WRONGORG 


COBOL 6,NAMEERR 


any other 


Notes 


the number of record keys of the indexed 
file, their position relative to the 
beginning of the record, their 

length and/or the permissible duplicate 
keys are not the same as those 

speci fied in the program. 


the file assigned has an organization that 
cannot override that specified in the 
program. 


identifier in a "CALL identifier" statement 
does not contain a program-name. 


abnormal code returned by the system, e.g, 
by Data Management if no USE procedure is 
used, by the Message Control System, by the 
sort routines... Refer to the Error 
Messages and Return Codes manual for a 
description of these return codes. 


For the COBOL 1,RECERR, the record length “specified in the program" 


is one of the followings 


- For a report file’ 


a) If the RECORD CONTAINS clause is present, the specified 
record length is augmented by 8. 

b) If the RECORD CONTAINS clause is not present, the record 
length is assumed to be 140. 


- For the other filess 


Unless one of the following conditions exists the record length 
is taken to be the length of the largest record defined for the 
file. If one of the following conditions exists this length is 


augmented by 8. . 


a) The internal-file-name in the SELECT clause is suffixed by 
-PRINTER or ~SYSOUT and WITH ASA or WITH SARF is not 


speci fied. 


b) With SSF is specified in the SELECT -clause. 
c) The LINAGE clause is specified in the File Description 


entry. 


d) The file is referenced in a WRITE statement with the 
BEFORE/AFTER ADVANCING phrase. 
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SECTION V 
REPRESENTATION OF DATA 


This section describes the way in which data descriptions are 
interpreted by the Level 64 COBOL compiler and the way in which data 
is held in memory in a COBOL program. 


The value of a numeric item may be represented in either binary or 
decimal form. In addition there are several ways of expressing 
decimal. The selection of radix is dependent upon factors inclitded 
in clauses such as USAGE. 


The types of data supported by Level 64 COBOL are listed in Table 
5-1, according to factors included in the USAGE and PICTURE clauses. 
The usage.of an item spcifies the format of the data item in 
computer storage . Note that only the usages DISPLAY, COMPUTATIONAL 
and INDEX are part of the ANS standard. The following naeragraphs 
describe how each data type is represented in internal memory. 


FORMAT OF DATA IN MEMORY 


The basic element of information in Level 64 memory which is handled 
by instructions is the byte (eight bits). A group of two consecutive 
bytes forms a halfword. Four consecutive bytes form a word. An 
address defines the location of a byte in main storage. The location 
of a group of bytes (e.g., halfword, word) is defined by the address 
of the left-most byte. Consecutive bytes from left to right are 
defined by consecutive increasing addresses. A group of bytes is 
called halfword-, word-, or doubleword-aligned, if its address is a 
multiple of two, four, or eight, respectively. 


The bits forming a byte are defined from left to right and are 
numbered zero through seven. Byte format is represented as follows: 
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DISPLAY DATA ITEMS 


Character~strings are defined, explicitly or implicitly, by a USAGE 
IS DISPLAY clause. Character-strings, represented in EBCDIC code, 
€re stored in memory in contiguous bytes with one character per 
byte. These character-strings may be non~numeric data as well as 
unpacked decimal numbers. 


An unpacked decimal number (PIC 9 or PIC S9) has the following 
format. Note, for PIC 9 the sign position is merely a zone. 


[zene | aes [cope [ aioit [ vone | atoit | cone [atone 


byte byte byte byte 


Each digit occupies the rightmost four bits of each byte: 
~ Values from 0 (0000) to 9 (1001) are legal. 


- Values from A (1010) to F (Itt!) are itllegal and produce an 
exception. 


Zone values are not checked by decimal instructions. 
The sign occupies the four left most bits of the last bytes: 
~ Values from A to F (1010 to 1111) are legal. 


- Values from O (0000) to 9 (1001) are illegal and produce an | 
exception. 


Signs are interpreted by instructions in the following manner? 


Sign Encoding sign 
1010 + 
1011 = 
11.00 + 
1101] = 
1110 + 
pia) + 


Instructions which use the encoded sign put the sign into the result 
field in the following manner? ae 


Sign Sign Encoding 
+ 1100 
~ 110] 
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The code Ill! is put in all zones in the result fields. The length 


Decimal instructions do noc examine the zones of source operands. 
_Of an unpacked decimal number may be from one to thirty one digits. | 


PACKED DECIMAL NUMBERS 


A packed decimal number (USAGE IS COMP, COMP-3 or COMP-8) is 
represented as a series of contiguous bytes, each containing two 
4—bit encoding portions, except for the rightmost byte. The leftmost 
four bits.of this byte represent a digit, while the rightmost four 
bits define a sign. However, if the USAGE is COMP or COMP=3 and the 
PICTURE character string does not have a sign, the rightmost four — 
bits represent the rightmost digit. Unsigned COMP and COMP-3 items 
should be avoided, if possible, for efficiency reasons (see section 
VIII, Efficiency Techniques). 


A signed packed decimal number (COMP, COMP-3 or COMP-8) has the 


following format: 
| digit | digit | digit | digit adgtt. | digit | digit | 


byte byte 


Each digit occupies four bits: 
~ Values from 0 (0000) to 9 (1001) are legal. 
- Values from A (1010) to F (III!) are illegal, and produce an 
exception. 
The sign, if present, occupies the last digit position: 
~ Values from A to F are legal (A,C,E,F = + $ B,D =-). 


~- Values from 0 (0000) to 9 (1001) are illegal and produce an 
exception. 


Signs are interpreted by instructions in the following manner! 


Sign Encoding sign- 
1010 + 
1011 - 
1100 + 
1101 - 
Lito + 
rid + 
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Signs put in result fields by instructions are encoded in the 
following manner: 


Sign Sign Encoding 
+ 1100 
- 1101 


A packed decimal number may occupy from one to sixteen bytes. The 
length, L, of a packed decimal number, is specified in digits. The 
number of bytes occupied is determined in the following manner. 


rE 


z 
2 


When L is even, the leftmost digit position must be zero. 


Table 5-!. Data Representation in Level 64 System 


USAGE MACHINE DESCRIPTION PICTURE 


DISPLAY EBCDIC byte 
or unpacked decimal 


*COMPUTATI ONAL 
or COMP 


Packed decimal (possibly 
without sign position 
depending on PICTURE) 


COMPUTATIONAL~! *k16-bit fixed-point binary NR 
or COMP~1 
COMPUTATIONAL=2 32-bit fixed-point binary NR 
or COMP-2 
Packed decimal (possibly 
without sign position 
depending on PICTURE) 
COMPUTATIONAL-8 Packed decimal (always 
| with sign position) 
COMPUTATI ONAL-9 Floating-point binary 
COMPUTATIONAL~-10 Floating-point binary NA 
or COMP-10 double precision 


or COMP~-9 single precision 
INDEX 6 bytes 


*COMPUTATI ONAL=3 
or COMP=$3 
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Notes for Table 5-1: 
R = PICTURE clause required in data description entry; 
NR. 


PICTURE clause not required in data description entrys 
NA. 


PICTURE clause not allowed in data description entry3 


*These items have the same meaning, unless specified otherwise in 
the DEFAULT SECTION. of the CONTROL DIVISIONS 


**kIf the PICTURE clause specifies more than 4 digits, a 32 bit 
fixed-point binary data item is used. 


FIXED=POINT BINARY NUMBERS 


Fixed-point binary data can be specified as either !6-bit binary 
(USAGE IS COMP-1 and no PICTURE, or a PICTURE showing less than 5 
digits) or 32 bit binary (USAGE IS COMP-2 or COMP-1 with a PICTURE 
showing more than 4 digits). The short binary data item consists of 
two contiguous bytes’ the long binary data item, of four contiguous 
bytes. In both types of data, a decimal point is assumed to be to 
the right of the least significant bit. Negative values are stored 
in two’s complement form. : 


FLOATING=POINT BINARY NUMBERS 


Floating-point binary data can be specified either as 32-bit binary 
(USAGE IS COMP=9) or 64-bit binary (USAGE IS COMP-10). The short 
floating-point binary data item gives single pvrecision (a precision 
of approximately 7 decimal digits). The long floating~point binary 
data item gives double precision (a precision of approximately 16 
decimal digits). 


The value of a floating-point binary number, V, is defined by the 
following equations 


S E 
V= (-1) x 16 x .M 


Where E = C-64 


S is the sign, E is the exponent, C is the characteristic, and M is 
the mantissa of the floating-point binary number. 


The value zero is represented by a floating-point binary number with 
mantissa equal to zero. A value of true zero is represented by a 
floating-point binary number with all bits equal to Zero. 


A short floatiny~point binary number occtnies four bytes. 
The format is as follows: 


SIGN CHARACTER- MANTISSA 4 
ISTIc : 
Si a es ee ee 
Uv | 7 8 3] 


A long Tloating*point binary number occupies eight bytes. 
The format is as follows: 


SIGN CHARACTER MANTISSA i 


MANTISSA 4 


The sign S of a floating-point binary number is contained in bit oO 


hag 


rf] 


S QO positive sign 
5S = | negative sign 


The cnaracteristic © of a floating-point binary number is contained 
in bits | through 7. Its range is O through t2?. 


The exponent, t, is the power to which 16 is raised in calculating 


the value ofr the floating-noint binary number. Tne exponent & is 
equal to C - 64, 


fhe mantissa # is the nexadecimal number contained in hits & thromgr 
31 for a snort floating-point binary nimber, or in vits 8 thrash 63 
Tor a long floating-noint binary nimbher. Ihe radix noint is at the 
left or the high-order digit position. 


INDEX DATA [lem 


An INDEX data item (USAGE IS INDEX) consists of 48 bits (six bytes, 
of binary datat the Tirst four bytes (CUMP-2) contain the relative 
displacement from the beginning of the table and the last two hnvtes 
(COMP-1) contain the occurrence number or the table slement. 
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SECTION VI 


CALLING AND CALLED PROGRAMS 


An application can be divided into several separately compiled 
programs. [hese programs can later be linked together by the SLINKER 
utility to form a single executable load module. Control is 

trans ferred between programs by the CALL and EXIT PROGRAM 
statements. 


The use of calling and called programs has the following advantages® 
- A called program can be written and compiled and stored ina 
compile unit library. This program can be called by other 
programs and can thus be included in several different load 

modules without having to be compiled each time. 


- Programs written in languages other than COBOL (e.ge, FORTRAN) 
can call or be called by COBOL programs. 


- Programs can be written by several programmers and can later be 
combined into a single load module. 


However, the use of calling and called programs may increase 
execution time slightly. 


The following ANS standard COBOL language facilities are used in 
calling and called programs: 


- the CALL and EXIT PROGRAM statements and optionally the CANCEL 
statement 3 


~ the LINKAGE SECTIONS 

- the USING phrase of the PROCEDURE DIVISION header. 
The EXTERNAL phrase is available as an alternative or complement to 
the LINKAGE SECTION and USING phrase. However, this facility is not 
part of the ANS standard. The use.of all the above facilities is 
discussed in the following paragraphs. 


Note: For an explanation of COBOL segment number, internal segment 
number and SLINKER segment number see Section III, Linking. 
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TRANSFER OF CONTROL 


The transfer of control between COBOL programs is achieved by using 
the CALL and EXIT PROGRAM statements. 


The CALL statement passes control to the program with the specified 
PROGRAM-ID value. For examples 


CALL "PROG2". 


In this example control will transfer to the program whose name is 
PROG2. (All programs which are to be linked into a single load 
module must have names which are unique within that load module). 
Control is handed to the first non declarative statement in the 
PROCEDURE DIVISION of the called program. 


It is important to note the distinction beween calling programs and 
called programs. A calling program contains a CALL statement which 
re fers tO a Separately compiled program. A called program is the 
subject of a CALL statement in a separately compiled program. Called 
programs may also be calling programs. That is, they may call other 
programs. However, @ load module contains only one program which is 
not a called program. This is tne "main program" which is speci fied 
in tne ENTRY parameter of SLINKER. Step execution commences from the 
Tirst non declarative statement in the PROCEDURE DIVISION of the 
main program, 


the EXIT1 PROGRAM statement returns control from a called program to 
the calling program at the point immediately following the CALL 
statement. An EXIT PROGRAM statement which is not in a called 
program (i.e. it is in the main program) is ignored when the program 
is executed. The main program should be terminated by a STOP RUN 
statement. This statement may also appear in any called program. A 
S:OP RUN statement in any program of a load module will cause 
execution of the load module to be terminated immediately. 


Any program may be used in more than one load module. Such a program 
may sometimes act as a main program and sometimes as a subordinate 
program. In this case the program should be terminated by an EXIT 
PROGRAM statement followed immediately (in the next paragraph) by a 
STOP RUN statement. When the program is a main program the EXIT 
PROGRAM statement will be ignored and load module execution will be 
terminated by the STOP RUN statement. When the program is not a main 
program the EXIT PROGRAM statement will hand control back to the 
calling program. 


The transfer of control between COBOL programs and non COBOL 
programs is covered later in this section. 
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LINKAGE SECTION AND USING PHRASE 


A calling program may provide data for a called program to process. 
Similarly, the called program may return processed data to the 
calling program. This exchange of data is achieved using the LINKAGE 
SECTION and the USING phrase of the PROCEDURE DIVISION header. An 
alternative or additional method of exchanging data, using the 
EXTERNAL phrase, is discussed under a later heading. 


Data to be passed to a called program is specified in the USING 
phrase of the CALL as shown in the following example: 


CALL "PROG3" USING QUANTITY, PRICE, VALU. 


In this example let us assume tnat QUANTITY and PRICE are elementary 
items on an input file and that VALU is an elementary item in the 
WORKING-STORAGE SECTION. The called program must contain a LINKAGE 
SECTION which contains three data items each of which has the same 
picture and usage as one of the data items speci fied in the USING 
phrase of the CALL statement. In addition these three items must be 
mentioned in the USING phrase of the PROCEDURE DIVISION header tn 
the same order in which they appear in the CALL statement. For 
examples 


PROGRAM-ID. PROG3. 


LINKAGE SECTION, 


Ol VALUE=L PIC... 
77 PRICE-L PIC 2% 
77 QUANT-L PIC... 


PROCEDURE DIVISION USING QUANT-L, PRICE-L, VALUE-L. 


MULTIPLY QUANT-L BY PRICE-L GIVING VALUE-L. 


EXIT-PARA. 
EXIT PROGRAM. 


The data items described in the LINKAGE SECTION are not allocated 
any storage space in the data segment(s) of the called program 
instead data names in the LINKAGE SECTION are associated with 
locations in the data segment or segments of the calling program. 
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The purpose of the LINKAGE SECTION is to enable the programmer to 
specify the pictures of the data items which are to be processed in 
the called program or are to receive results from the called 
program. Another purpose of the LINKAGE SECTION is to enable the 
programmer to give local names to the data items to be processed. 
These data names need not be the Same as those used in the calling 

- program, nor need the data items be described in the same order as 
they appear in the calling program. However, the order of data names 
in the PROCEDURE DIVISION header and in the CALL statement must be 
the same. 


The code generated by the compiler when a reference is made to a 
data item in the LINKAGE SECTION is based on the data descriptions 
contained in the LINKAGE SECTION. However, the generated code 
actually refers to the storage areas allocated in the calling 
program. If the data description in the LINKAGE SECTION is not 
identical to that in the calling program the results are 
unpredictable. 


THE EXTERNAL PHRASE 


The EXTERNAL phrase may be included in the O! or 77 level of any 
data description in.the WORKING=-STORAGE SECTION or the CONSTANT 
SECTION (the CONSTANT SECTION is not part of the ANS standard). The 
effect of this phrase is to make the constituent data items 
available to every proyram in the load module which describes that 
record. The EXTERNAL phrase is used as an alternative or complement 
to the LINKAGE SECTION and USING phrase. It is not part of the ANS a 
standard. The use of this phrase in a calling program is shown in 
tne following examples 


NORKING-STORAGE SECTION. 


O!1 SHARED=-DATA EXTERNAL. 
02 QUANTITY PIC ees 
Q2 PRICE PIC... 
O02 VALU PIC... 


PROCEDURE DIVISION, 


CALL "PROG3". 
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If the called program has to refer to the data items in the record 
SHARED-DATA it must contain an identical record description 
(including identical data-names). For example? 


PROGRAM=ID. PROG3. 


WORKING-STORAGE SECTION, 


Ol SHARED-DATA EXTERNAL. 
O2 QUANTITY PICeee 
O02 PRICE PIC... 
02 VALU PIC... 


e 


PROCEDURE DIVISION, 


MULTIPLY QUANTITY BY PRICE GIVING VALU. 


EXIT PROGRAM. 


Identical record descriptions which contain an EXTERNAL phrase and 
which occur in more than one program in a load module are all 
allocated the same storaye space in memory. The code generated by 
the compiler when any program in a load module makes a reference to 
a particular external data item always refers to the same data 
segment address. If a calling program and a called program both use 
an external record which has the same record name but different 
descriptions for the elementary items, the results are 
unpredictable. 


CALL IDENTIFIER 


The "CALL identifier" statement enables the program to call 
different programs with the same CALL statement. The name of the 
called program is stored in "identifier" and can be changed during 
step execution. If the CALL identifier statement is used, the called 
compile units must be specified to $LINKER in the INCLUDE command. 
See Section III, Linking. 


THe CANCEL STATEMENT 


The CANCEL statement may be used in a calling or called program. The 
main function of this statement is to initialize the state of the 
specified program or programs. For example? 
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CANCEL "PROG4", 


In this example the variables in the program PROG4 are set to the 
values which existed when the load module began execution (including | 


PERFORM return and ALTER buckets - see Perform/Alter Bucket Listing 
Section II). , 


Note that the ANS standard specifies that cancelled programs are 
removed from memory and are initialized when returned to memory. 


Removal from memory is unnecessary under Virtual Memory Management, 
so the program is simply initialized. 


INTERFACE WITH FORTRAN PROGRAMS 


Programs written in FORTRAN can be called by COBOL programs. These 
programs are called as if they were COBOL programs containing a 


LINKAGE SECTION. That is, they are called with the USING phrase of 
the CALL statement. 


Called FORTRAN programs must be in the form of a normal FORTRAN 
subroutine. For example: 


SUBROUTINE FORSUB (A,B,C...) 


RETURN 


The arguments A,B,C etc. must have the same data format and must be 
in the same sequence as the data items named in the USING phrase of 
the COBOL CALL statement. The COBOL data formats which are 


recognized by FORTRAN are shown in Table 6-1. No other data formats 
are permitted. 


Table 6-1. Data Formats in FORTRAN Called Programs 


Data Format COBOL Data FORTRAN 
1 Description Declaration 


Alphabetic, PIC A 
alphanumeric PIC xX CHARACTER*n 
Or edited. PTC $9.9 etc 


One word binary. COMpP=1 PIC S99999.. {| INTEGER 
COMP=$2 

Single word floating COMP-9 REAL 

point. 


Double word floating Saat DOUBLE 


point. | PRECISION 
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COMP-9 and COMP-10 items may only be used in MOVE, INITIALIZE 
(conversion), PROCEDURE DIVISION USING..., and CALL USING... They 
have been introduced for communication with FORTRAN programs. 


The following example shows a COBOL program calling a FORTRAN 
programs 


WORKING=STORAGE SECTION. 


TT ANGLE COMP-10,. 


PROCEDURE DIVISION, 


CALL "COSINESQ*" USING ANGLE. 


The called FORTRAN program may be as follows: 


SUBROUTINE COSINESQ (ARG) 


DOUBLE PRECISION ARG, WORK 


WORK = COS (CAG) 
ARG = WORK**2 


RETURN 


Programs written in COBOL can also be called by FORTRAN programs. 
The PROCEDURE DIVISION header in the COBOL program must contain a 
USING phrase. The arguments specified in this phrase must he in the 
same format and must have the same sequence as in the FORTRAN CALL 

statement. The data formats which can be used For arguments have 
been shown above. 


CONSTRAINTS 


The following paragraphs describe some constraints which must he 
observed when writing calling and called programs. 
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Using Files 


A file which is used in more than one program of a load module must 
be described in each program in which it is used. The descriptions 
must specify identical file parameters, though the actual data names 
used need not be the same. The SELECT clause in each program must 
contain an EXTERNAL phrase (not ANS standard). The 
internal-file-name used in the SELECT clause of each program must be 
the same, though the COBOL file-names may be different. 


Conversely, internal-file-names must be different for files which 
are not EXTERNAL (i.e. not to be used in more than one program) 
though the COBOL file-names may be the same (in different programs). 


Note that. record areas are local to the program in which they are 
described. That is, if program A reads a record froma file, this 
record is not automatically available to program B when it tis called 
$ even though program B contains an identical description (including 
EXTERNAL) for this file. 


Report Writer 


A report description (RD) is local to a program. Therefore, Report 
Writer statements used in a particular program can refer only to a 
report description in the same program. 


However, more than one program in a load module can produce reports 
using the Report Writer. If these reports are produced concurrently 
on the same (EXTERNAL) file and the CODE clause is used, the report 
code for each report must be unique within the load module. 


For more information on the use of the Report Writer see Section 
XII. 


GUIDELINES 


The benefits of calling and called programs have been listed at the 
beginning of this section. If none of these benefits applies to a 
particular program, then calling and called programs need not be 
used. 


Programs should normally be "structured". That is, they should be 
divided into logical units or modules of source code. However, this 
can be done without the use of calling and called programs. Ihe 
“ransfer of control between source modules can be made using the 

:RFORM statement rather than the CALL and EXIT PROGRAM statements. 
-ne PERFORM statement is more efficient than the CALL and EXIT 
PROGRAM statements. See Section VII for more details of the use of 
structured programming with the PERFORM statement. 
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SECTION VII 
SEGMENTATION 


seymentation is the process of physically dividing a program into 
segments which can be located in main memory or on disk 

independently of each other during load module execution. The 

process of moving program segments between main memory and disk 
(swapping) is not the responsibility of the user program. It is 
handled by the system component "Virtual Memory Management". For a i 
description of Virtual Memory Management see the System Management 
Guide. 


However, the programmer can influence the way in which the program 
is divided into segments. Good program segmentation will achieve the 
followings 


~ The number of times segments must be swanped between main 
memory and disk will be reduced. This has three benefitss 
first, the reduced rate of I/0 minimizes queuing for the disk 
drives: second, the elapsed time of the program is reduced 
becauSe Waiting for segments to be loaded from disk is avoided! 
as far as posssible: third, the CPU time consumed bv Virtual 
Memory Management is minimized. 


~ Execution of a load module can begin when only part of the load 
module is in main memory. [This has two benefits: first, larye 
load modules do not have to wait for a large amount of memory 


to become available at one times second, large load modules 
that would be too large to fit into the available memory in one 


piece can be executed in segments. 


The remainder of this Section provides guidelines for efficient 
program segmentation. 


Note: For an explanation of COBOL segment number, internal segment 
number and SLINKER segment number see Section III, Linking. 
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METHODS QF SEGMENTATION 


Programs may be segmented in one or both of the following ways: 


- COBOL segment numbers can be used on the SECTION headers of the 
PROCEDURE DIVISION. This technique applies only to the 
PROCEDURE DIVISION. The DATA DIVISION can be segmented by using 
the DSEGMAX parameter of the SCOBOL statement. This parameter 
controls the automatic segmentation done by the compiler. 


- Segmentation will be done automatically by the compiler 
whenever the size of a data or procedure segment exceeds the 
preferred segment size. The preferred segment size has a 
default value of 4K bytes (K = 1024). This value can he 
modified by parameters in the SCOBOL statement or by clauses in 
the OBJECT-COMPUTER paragraph (described below). 


CONTROL OF SEGMENTATION BY THE PROGRAMMER 


Segmentation should be viewed as a tool by which a user programmer 
Can take advantage of Virtual Memory Management. The user program 
should be segmented according to the logical structure of the 
program. This will enable Virtual Memory Management to hold in 
memory a minimum number of segments, thus minimizing the memory 
requirement and reducing the amount of swapping. 


If the programmer does not explicitly segment his program in this 
way, the compiler will automatically divide the nrogram into 
Segments (see Automatic Segmentation, helow). However, the compiler 
does not have enough information about the program logic to ontimize 
automatic segmentation. Therefore, the programmer should segment his 
program explicitly (unless the program is very small, in which case 
no automatic segmentation will be done by the comniler). The ways in 
which the programmer can influence segmentation to ensure efficient 
uSe of Virtual Memory are described below. 


PROCEDURE DIVISION Segmentation 


By specifying segment numbers in the SECTION headers of the 
PROCEDURE DIVISION the programmer can control the segmentation of 
the PROCEDURE DIVISION. (These segment numbers are called "COBOL 
segment numbers" in this manual] to differentiate them from “internal 
segment numbers" and “SLINKER segment numbers" - see Section III, 
Linking). 
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COBOL segment numbers can have a value from 0 to 99 inclusive. For 
each set of SECTIONS with the same COBOL segment number, provided 
this number is greater than the SEGMENT-LIMIT value, the comoiler 
generates object code in a single segment. (ne segment is generated 
for each segment number greater than the SEGMENT-LIMIT. SECTIONs can 
be grouped into Separat& segments in this way irrespective of 
whether they are physically contiguous in the PROCEDURE DIVISION. 
SECTIONS whose segment numbers are less than the SEGMENT-LIMIT are 
all grouped into a single segment. All of the above segments may he 
further subdivided by the comniler if the segment size exceeds the 
preferred procedure segment size (see below). 


According to the ANS standard, a segmented COBOL program can contain 
three types of segment: 


~ Fixed Permanent Segments: these are identified by a COBOL 
Segment number from zero up to but not including a value 
specified as the SEGMENT~-LIMIT (given in the OBJECT COMPUTER 
paragraph); 


- Fixed Overlayable Segments: these are identified by a COBOL 
segment number from the SEGMENT-LIMIT to 49 inclusive; if 
overlaid, such segments are returned to memory in the state 
they had when last used (in particular, the results of ALTER 
and PERFORM statements are retained)3 


~- Independent Segments: these are variable overlavable segments, 
identified by a segment number from 50 to 99% they are in their 
original state (as compiled), each time they enter memorv. 


For Level 64, Virtual Memory Management eliminates the distinction 
between "permanent" and “overlayable" segments! both are of the same 
type, and both are swappable. Only the distinction between fixed and 
independant segments is significant, determining the handling of 
ALTER, PERFORM, MERGE and SORT statements. 


If the programmer does not use COBOL segment numbers it is unlikely 
that the compiler will segment the PROCEDURE DIVISION in an ontimal 
manner. In the absence of COBOL segment numbers, the compiler may 
segment in the middle of a frequently used iterative sequence of 
code (i.e. a loop). This can impair program nerformance by 
increasing unnecessarily the swapping or memory requirement during 
execution. It is important, therefore, that the programmer carefully 
control the segmentation of the PROCENURE DIVISION. 


In order to use COBOL segmentation effectively, the PROCEDURE 
DIVISION should be divided into a set of code "modules". These 
modules should represent logically discrete stens in the overall 
processing and should be reasonably self-contained. Tne modules 
should be organized into a tree structure or hierachy. In other 
words, the program should be "structured". The subject of structured 
programming will not be discussed further in this manual. The reader 
is recommended to consult one of the many publications on this 
subject for more details. 
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Each PROCEDURE DIVISION module should be written as a separate 
SECTION and should be activated by a PERFORM. SECTIONS which are 
Closely related and which are normally executed at the same stage of 
program execution should be grouped in the same segment by being 
given the same COBOL segment number. For example consider a program 
in which there are five SECTIONs and COBOL segment numbers 40, 41, 42 
and 43 are used together with a SEGMENT—-LIMIT less than 40: 


- Segment 40 contains a.SECTION to open files and initialize data 
items. 


~ Segment 41 contains two SECTIONs? a file processing SECTION and 
a record processing SECTION. 


- Segment 42 contains a SECTION to close files and terminate the 
program. 


- Segment 43 contains a SECTION to handle error situations 
detected in any other segment. 


Segments 40 and 42 are each used once only at different times during 
program execution. Therefore, they are separate segments. Segment 41 
contains two SECTIONs which comprise the most frequently used 
instruction sequences in the program. This Segment is the only one 
that needs to be in memory during most of the program execution. 
Segment 43 is activated whenever an error situation is detected in 
one of the other segments. This segment might never be executed, 
but, if it is executed, it will execute at the same time as one of 
the other segments. This segmentation is depicted in Figure 7-1. 


Figure 7-| also shows an example of bad segmentation. The main 
processing sections (2 and 3) are here split over three segments 
(40, 41 and 42). This means either that sections 1 and 4 will be in 
main memory eVen though they are not being used or that segments 40 
and 42 will be swapped each time a file is referenced or a record is 
processed. 


Note that there are ANS standard restrictions on the use of the 
following statements in programs that are segmented using the COROL 
segment number in SECTION headers: 


- ALTER 
~ PERFORM 
SORT 
MERGE 


t 


Manual. 
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Good Original 
segmentation Program 


Section I- 
Open files & 
initialize 
data items 


segment 40 


Section 3- 
Record 
Processing 


Segment 41 


Section 4- 
Close files & 
terminate 

program 


- 
_—— 
_—— 
_ 
——— 
—_ 


Segment 42 


Section 5- 
Error 
handling 


Segment 43 


Figure 7-1. PROCEDURE DIVISION Segmentation 


DATA DIVISION Segmentation 


The programmer does not have much control over the segmentation of 
the DATA DIVISION. The main method of controlling this is via the 
preferred data segment size (see below). However, the following 
points should be remembered: 


- Group into a single segment all data likely to he used at a 
given time by the same statement, and if possible bv the same 
Sequence of Statements, bearing in mind that file record areas 
are always in the first segment, and/or? 


- Describe all frequently used data at the start of the DATA 
DIVISION so that this data will all be included in a singles 
segment (provided that the preferred data segment size is high 
enough). 


Examples of good and bad DATA DIVISION Segmentation are given ; 
in Figure 7-2. 


Good Segmentation Bad Segmentation 


Procedure 
Segment | 


Procedure 
Segment 2 


Figure 7-2. DATA DIVISION Segmentation 


Figure 7-2 shows an example of good segmentation in which all data 
referenced by a given procedure segment is in a single data segment 
(provided this segment is not too large). Also shown is an example 
of bad segmentation in which a procedure segment references data in 
more than one data segment. However, such segmentation cannot always 
be avoided. It may be more efficient in certain cases to segment in 
the "bad" way shown above in order to reduce the number of segments 
and produce a set of segments of approximately the same size. 


Preferred Segment Sizes 


As mentioned above, segments derived from the PROCEDURE DIVISION and 
DATA DIVISION can be further subdivided by the compiler if the 
actual segment size exceeds the preferred segment size. Preferred 
segment sizes can be specified in the following ways? 


- In the OBJECT-COMPUTER paragraph using the MAXIMUM PROCEDURE 
SEGMENT SIZE and MAXIMUM DATA SEGMENT SIZE clauses. 


- In the SCOBOL statement using the PSEGMAX and DSEGMAX 
parameters. 


The use of the SCOBOL parameters is recommended, as the MAXIMUM 
PROCEDURE SEGMENT SIZE and MAXIMUM DATA SEGMENT SIZE clauses ara not 
part of the ANS standard. 


If preferred Segment sizes are not specified, the compiler will 
assume a default value of 4K bytes (K = 1024). In most cases the 
default segment size will be acceptable and a size need not be 
specified by the programmer. However, the following points should be 
remembered when deciding upon the optimum preferred segment sizes? 
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- Performance will be improved if all segments in the load module 
are of approximately the same size. 


- Large segments tend to be used (i.e. referenced) more often 
than small ones. For this reason Virtual Memory Management 
usually allows them to remain in memory for a longer time than 
Small segments. On the other hand, once a large segment has 
been swapped out of memory considerable rearrangement of memory 
contents might be necessary in order to provide a large enough 
area of memory for it to be swapped back into. 

~ Conversely, smaller segments tend to remain in memory for a 
shorter timee The CODAPND parameter of the SCOBOL statement can 
be used to merge linkage and code segments when the code 
segment is small (see Section II, Compilation). 


AUTOMATIC SEGMENTATION 


The compile unit generated by the COBOL compiler normally comprises 
a minimum of three segments as shown in the following segment list 
printed by the compilers 


IC206.0 eoL 101 
IC206.1 -D. 1342 
[C206.2 Ces 1946 


The meaning of L,D and C is as follows: 


- L indicates a linkage segment. This segment, during execution, 
will contain all the vnointers required for the calls and 
branches in the program. It also contains certain constants. 
There is only one linkage segment in each compile unit and it 
always has an internal segment number Zero. 


~ D indicates a data segment. There may be one or more data 
segments in a compile unit. These segments contain the record 
areas defined in the program FDs together with the contents of 
the WORKING-STORAGE, CONSTANT and COMMUNICATION SECTIONS. 
Certain compiler generated data is also stored in the data 
segments. 


- C indicates a code segment. There may be one or more code 


seyments in a compile unit. These segments contain the object 
code generated from the statements in the PROCEDURE DIVISION, 


7-07 


If the CODAPND parameter 1s used in the $COBOL statement, and the 

total size of the code segment and the linkage segment together is 
not larger than the preferred nrocedure segment size, the linkage 

segment and code segment will be merged. The above example segment 
list would thus appear as follows: 


[C206.0 Cel 2047 
IC206.1 ~D. 1342 


If the preferred data segment size or procedure segment size is 
exceeded the compiler will divide the data or code into one or more 
Segments. Circumstances under which this "automatic" segmentation 
takes place are described below. 


Data Segments 
Data segments are generated according to the following rules: 


- Record areas for the program’s files are located at the start 
of the user data in the first data segment. 


-~ O|1 level data items are added One by one to the data segment 
until the preferred data segment size is reached. At this point 
a new segment is started. O!l level data items are not split 
between two segments. 


- If an O| level data item is, individually, greater than the 
preferred data segment size it is not subdivided but forms a 
data segment on its own. 


- If the compiler has generated any incomplete data segment (less 
than the preferred data seyment size) it will try to insert 
later Ol level data items into the earlier segment until the 
preferred data segment size is reached. 


The application of these rules can be observed in the following 
example. In this example segment | contains two record areas (80x2), 
the group item MAN (80) and three elementary items (1000x3) or about 
3240 bytes. Segments 2 and 4 each have a length of exactly 4000 
bytes. However, segment 2 is composed of three contiguous data items 
(DD,EE,FF) and one data item which is not contiguous with the others 
(HH). This is because a data item of 5000 bytes (GG) occurs between 
FF and HH. This item is assigned the whole of segment 3. Segment 4 
has a length of only 3000, since the next level O!l item is ton big, 
and forms a segment on its own, as does the last level O1 item. 
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The source program is as followss 


DATA DIVISION. 
FILE SECTION, 
FD LIST 


LABEL RECORD STANDARD 
DATA RECORD ARTOUT. 


Ol ARTOUT PIC X(&O). 
FD CARD 


LABEL RECORD STANDARD 


DATA RECORD ARTIN. 
Ol ARTIN PIC X(€80). 


WORKING-STORAGE SECTION, 


Ol MAN. 

Q2 CODNB PIC 9. 

O02 LI PIC X(1tQ). 

O2 Le PIC X69). 
Ol AA PIC X(1000). 
Ol BB PIC X(1000). 
Ol CC PIC X¢(tQ00). 
Ol DD PIC x(1000). 
Ol EE PIC X(1000). 
Ot FF PIC X(1000). 
Ol GG PIC X(5000). 
Ol HH PIC X(1000). 
Ol II PIC x(1oo00). 
Ol JJ PIC X(1000). 
Ol KK PIC X(1000). 
Ot LL PIC X(1000). 
Ol MM PIC X(1000). 
Ol NN PIC X(1000). 
Ol O00 PIC X(1000). 
Ql PP PIC X(3000). 
Ol aQ PIC X(3000). 
PROCEDURE DIVISION. 


Internal 


Internal 


Internal 
Internal 


Internal 


Internal 


Internal 
Internal 


seg. no 


sege no 


seg. no 
seg. no 


seg. no 


seg. no 


sege no 
seg. no 


The corresponding segment list printed by compiler is as 


SEGLIMO! .O 
SEGLIMOI!.1 
SEGLIMO} .2 
SEGLIMOI.3 
SEGLIMO1!.4 
SEGLIMOI.5 
SEGLIMOI.6 
SEGLIMOI.7 
SEGLIMOI.8 
SEGLIMOI .9 
SEGLIMO!.10 
SEGLIMOI.11 


ook 
els 
dD. 
eile 
«Ds 
-D. 
~D. 
-D. 
Ces 
Ces 
C.. 
Cras 
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176 
3296 
4000 
5 000 
4000 
3008 
3008 
3424 

144 

464 

352 

592 


2 (cont.) 


follows: 


* 


Procedure Segments 


The PROCEDURE DIVISION is divided automatically into segments accord- 
ing to the preferred procedure segment size. As mentioned above 

this can cause the object code for a frequently used interactive 
sequence of cOde (a loop) to be divided between two segments. In the 
worst case this can result in both segments being Swapped each time 
the loop is executed (if this happens, there is memory overload). 


The procedure map listing printed by the comniler may help in 
determining the preferred procedure segment size. This listing can 
be used to find the source line number at which a new segment 
begins. 


INTERNAL SEGMENT NUMBERS 


A COBOL compile unit can have no more than 128 internal segment 
numbers (ISN). The ISN is the number assigned to each internal 
seyment in a compile unit. These numbers are assigned in the 
following way? 


- 4 ISNs are allocated to special seyments not generated directly 
from the PROCEDURE DIVISION or DATA DIVISION, 


- Each data segment generated from the DNATA DIVISION is given an 
ISN. 


~- Each procedure segment generated from the PROCEDURE DIVISION is 
given an ISN, 


- The linkage segment is given an ISN unless this segment is 
merged with the code segment (CODAPND pnarameter in the SCOBOL 
statement). 


- Each file in the program uses two ISNs. 


- If the Program Checkout Facility is to he used (DEBUG parameter 
in SCOBOL) one segment is generated in the comnile unit for 
each 200 lines (approximately) in the source program. One ISN 
is given to each segment. 


- If the program contains a USE FOR DEBUGGING SECTION and the 
DEBUGMD parameter of the SCOBOL statement is active, One or 
more additional segements are generated. One ISN is given to 
each segment. 


~ If a program has EXTERNAL files, one ISN is used for each 
EXTERNAL file. 


- Each EXTERNAL data item with a VALUE clause is given one ISN. 
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- Each translation table (tised for alnhabet-name. TRANSFORM...) 
is given one iSN. 


If more than 128 ISNs are needed during a comnilation the comniler 
Will print the fatal error message 8-94 and will then terminate. 


DECLARED WORKING SET 


To avoid memory overload situations, the amount of memory required 
for each job sten should be snecified by use of the S$SI7E statement. 
The amount of memory required is known as the declared working set 
(DWS). If no DWS is specified, the program will be allocated 35k of 
main memory. 


An explanation of DWS together with a descrintion or how to 
calculate the DWS value for a program is given in Section VII of the 
system Management Guide. 


ir 


SECTION VIII 


EFFICIENCY TECHNIQUES 


The following techniques are recommended to obtain efficient COBOL 
object programs. Consideration is given to data manipulation and 
data description techniques. See Section VII, Segmentation, for 
guidelines on efficient segmentation. See the UFAS User Guide, 3FAS 
User Guide and HFAS User Guide for guidelines on the efficient use 
of files. 


Some of the suyyestions are designed to reduce memory needs, some 

are meant to save time, and some will do both. Each recommendation 
is tollowed by the designators (T) for time saving, (S) for space 

saving, Or (T and S) for time saving and space saving, to indicate 
the anticipated type of efficiency. 


Note that some of the suggestions recommend the use of language 
features that are not ovart of tne ANS standard (e.g. COMP-1, 


DATA MANIPULATION TECHNIQUES 


- Avoid using the CORRESPONDING option when a simple MOVE 
statement would suffice. MOVE CORRESPONDING results in a series 
of moves of individual items: a simple MOVE is instead 
optimized for the group or record as a whole. Never use MOVE 
CORRESPONDING for such purposes as transmitting a master file 
record from the input buffer to the outnut buffer. Use MOVE 
CORRESPONDING when it will in fact cause selected items to be 
moved, or when editing or Tormat conversion is needed on the 
respective items. (T and S) 


- Manipulate a yroup item or record as a whole whenever possible, 
rather tnan manipulating its elementary items separately. [his 
rile is especially’ important for tables of data items? MOVE or 
Clear a table as a whole whenever possible. 
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For example, technique a (nelow) is quite efficient, while b is 
less so? 


ae MOVE SPACES TO TABLE. 


Dd. MOVE |! TO I. 
LOOP. MOVE SPACES TO TABLE-ITEM (1). 
ADD 1 TO [. 
IF I NOT > TABLE=-SIZE GO TO LOOP. 


(f and 35) 


It a data item is to pe used in several subscripts without a 
change in value, either make it a COMP-1 or COMP-2 item or else 
move it to a temporary area in working-storage (described as 
COMP=1 or COMP-2) and use the working-storagye ‘lata item in the 
subscripts. (1 and S$) 


Ir tne length of the repeating data item ina table is a power 
of 2, use the SUBOPT parameter of the SCOBOL statement. This 
Will enable the compiler to use shift rather than multinly and 
bound check when calculating the displacement. However, see 
=xceotion 06-00 Out of Segment Bounds, Section IV, for 4 
restriction on the use of SUBOPT. (T and S) 


[If a subscrinted item is to be referred to more than once with 
tne same subscript value(s), consider moving it to a temoorary 
workiny-storaye area once for all processing. Or? 

If a subscrinted item is to be referred to more than once, SEI 
an INDEX Tor this element and use this INDEX as a subscript. If 
this is done the displacement of the element need not be 
calculated for each reference. (T and §) 


ror MOVES, conditions, addition, and subtraction, give the 
items similar PICTUREs and USAGEs whenever possible. (7) 


In the UNTIL option of the PERFORM statement, use the simnlest 
possible condition to terminate the loon. If necessary, acnieve 
such simplicity by preceding the PERFORM with explicit MOVES 
and COMPUTES. If numeric items are involved in the condition, 
yive tnem similar PICTURES and the same tsage. (I) 


Tend to use procedural literals rather than constant values in 
AORKING@“STORAGE. The compiler can optimize the format of 
procedural literals, but must resort to dynamic format 
conversions in the object proyram if WORKINC-STORAGE items are 
not ideally formatted. However, dunlicate literals do result in 
extra memory space requirements. (1) 


Use GO TO...DEPENDING for decisions whenever possible. In any 
application for wnich GO T0O...DEPENDING can be used, more 
efficient object coding can be generated than by using a 
succession of IF statements. (T and S) 


ADD 1 TO A is equivalent to COMPUTE A = A+l but MULTIPLY A RY B 
may be better than COMPUTE B = Ax*B. (T) 
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DATA 


When the result of a computation is stored in one of the 
operands of the computation, ADD, SUBTRACT ete may be more 
efficient than COMPUTE. For example ADD A TO B may be more 
efficient than COMPUTE B = A+B. (T) 


If possible use the DIVIDE statement rather than / in the 
COMPUTE statement. The compiler will convert operands and 
intermediate results into floating point decimal whenever 
division or exponentiation occurs in the COMPULE statement 
(unless the division is the last operation in the statement). 
This is time consuming and can be avoided for division by tsiny 
the DIVIDE statement. However, COMPUTE must he used for 
exponentiation (**). The effects of converting into floating 
point decimal can be minimized by ensuring that division or 
exponentiation are the last operations to be performed in a 
COMPUTE statement. For example? 


COMPUTE 17 
COMPUTE Rk 


A**xB. 
T+C, 


hou 


is more efficient thant 
COMPUTE R = A**B+C 


In the first method a temporary data item T is used to hold the 
result of the exponentiation. C is added to T in a separate 
COMPUTE which is performed in fixed point decimal. In the 
second method both the exponentiation and the addition are 
performed in following point decimal. Note the following 
example also? 


COMPUTE R = (A*B)/C 
is more efficient than: 

COMPUTE & = (A/C)*B 
In the first method the intermediate result may be in fixed 
noint decimal. In the second method it will he in floating 
point decimal for the whole computation because the division is 


the first operation to be performed. (T) 


Avoid using the / operator in an arithmetic expression of a 
relation condition. 


DESCRIPTION TECHNIQUES 


Use COMP, COMP-3 or COMP-8 for non-integer data items and for 
data items which interact with other COMP, COMP-3 or COMP=8 
data items. COMP, COMP-3 or COMP-8 must be used if fractional 
results are required. (T) 
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“mi 


Do not use unsigned COMP or COMP=-3 data items in computations. 
In Level 64 the righthand 4 bits of a packed decimal item 
repreSent the sign. When an unsigned COMP or COMP-3 data item 
is used in a computation’ the run-time package must add a dummy 
sign position to the data item before computation can be 
started. (T and S) 


Use COMP=! or COMP-2 for integer data items which are not 
involved arithmetically with data items of other usages. (T) 


Specify COMP~1 or COMP-2 for a data item that will be used as a 
subscript or that will be a DEPENDING item in a GO TO statement 
Or in an OCCURS clause. This rule is important if the item will 
be mentioned as a "subscript-name" in PERFORM... VARYING or in 
any such loop. Again, consider moving the item explicitly to a 
COMP=1 or COMP=2 area in WORKING-STORAGE if other 
considerations dictate USAGE DISPLAY. (However, INDEX is a 
standard and possibly more. efficient method of describing 
subscripts used in PERFORM..VARYING.) (T) 


USAGE COMP-1 or COMP=2 is also recommended for identifier-? 
data items in WRITE...ADVANCING statements to avoid unnecessary 
conversions. (T) 


If a record contains COMP(-n) and/or SYNCHRONIZED data items, 
place single-word items and double-word items together whenever 
possibie. Savings in memory space can be obtained: this rule is 
most applicable for records ina file. (S) 


It is often necessary to organize files in a highly efficient 
space-saving manner, even though it is also desired to save 
time while processing the data. In this case, describe each 
record in both the FILE SECTION and in the WORK ING-STORAGE 
SECTION. In the FILE SECTION, pack the data as closely as 
possible, without regard to processing efficiency in the 
WORKING-STORAGE SECTION, do exactly the opnosite. Avoid using 
READ...INTO and WRITE...FROM. Instead, READ each record and 
determine whether the record is to be involved in detailed 
Processsing. If detailed processing is required, employ the 
MOVE ..eCORRESPONDING statement to unpack either the entire 
record or the significant group(s) within it to the 
WORKING=STORAGE area and refer to the data in that location for 
all detailed processing. Similarly, use MOVE. ..CQRRESPONDING as 
appropriate to construct (or reconstruct) the output record. 
Perform a simple MOVE from input buffer to output buffer if 
detailed processing is not required. (T and S) 


If reports are generated without using the Report Writer 
facility, use skeleton lines in WORKING-STORAGE, with constant 
information initialized via the VALUE clause rather than by 
MOVE statements in the PROCEDURE DIVISION. (T and S) 


There 1s some benefit in having COMP-1, COMP-2, COMP-9, COMP=-10 
and INDEX items word-aligned. However, it is not worth using 
SYNC to achieve this if it cannot be done by arranging the 
order of other data items (T). 
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SECPION IX 
rILES 


This section contains information which is relevant for all tynes of 
files. In addition, the use of unit record files is disctitssed in 
detail in Section XI. 


FILE NAMES 


Each file is known by three different names: 


- COBOL file-name, used to identify the file throughout the COBOL 
program$ 


- internal-file-name (ifn), used to connect the COBOL file-name 
and the external-file-name via the COBOL SELECT clause and the 
JCL SASSIGN statementi 


- external-file-name (efn), the name by wnich the file is known 
to the systems it is recorded in the file label and nossibly in 
a catalog. 


The relationship between these three file names is shown in the 
following diagrams 


COBOL! SELECT ASSIGN TO 


SUTTIiX eG 64: . 


JCLs ASSIGN 


The advantaye of assigning the efn to the ifn is that different 
files can be processed with the same COBOL program, merely bv 
modifying the SASSIGN statement each time the job is to be run. 


The format and content of each type of file name are different. They 
are as follows: 


- ANS standard calls for COBOL file-names of not more than 30 


characters chosen from the set A...Z, O...9, and hvnhen (-), 
and containing at least one alphabetic character. 
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- Internal-file-names may be up to 8 characters in length, chosen 
from the set A...Z, 0...9. They must begin with an alphabetic 
character and may NOT contain a hyphen (except for H-SORT, 
which may be used only as the internal-file-name of a 
sort/merge file). The character "_" (underscore) is not an ANS { 
standard COBOL character. It can occur in an internal-file-name 
only if it begins with the characters H.. It is reserved for 
system files, for example H_RD and HUPR (used for ACCEPT from 
SYSIN and DISPLAY upon SYSOUT). Note that this definition of an 
internal~file-name only applies to COBOL and is more 
restrictive than the definition in the Job Control Language (JCL) 

Reference Manual. 


~ The rules for external-file-names are different for cataloged 
files, uncataloged files and temporary files. See the Job Control 


Language (JCL) Reference Manual Section III for details of external- 
file-names. 


The following suffixes may be used on internal file-names in the 
COBOL SELECT clauses 


-PRINTER 
~MSD 
~CARD-READER 
-CARD-PUNCH 
“TAPE 
-SYSIN 
-SYSQUT 


No other suffix may be used. However, only -PRINTER, -SYSIN, -SYSOUT 
and -TAPE have a significance other than documentation. The 
significance of ~PRINTER and ~SYSOUT is explained in Writing SSF 
Files in COBOL Programs, Section X. -TAPE is only significant for 
H-2000 files. For these files -fAPE means that the CHARACTERS option 
of the BLOCK CONTAINS clause implies variable length records. The 
only significance of -SYSIN is that the associated file can be 
opened when it is already open. Note that the suffix is NOT part of 
the ifn, and does not appear in the corresponding SASSIGN statement. 


DATA MANAGEMENT QVERRIDING RULES 


The source program normally defines the basic file characteristics. 
However, a number of file parameters (e.g. file organization, 
blocksize, device class) can be specified and recorded at different 
mlaces in the system and at various stages in the creation of the 
file. Table 9-! shows where these parameters are specified and where 
they apply. 
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Table 9-1. Specification and Applicability of File Characteristics 


Where snecified | Where Applicable 


At system generation Throughout the job 


In source program Compilation time 


In JCL (SASSIGN & DEFINE) | Job translation time | 


File label File OPEN time 


Qverriding rules specify the action to be taken by Data manauamant 
when there is an absence, or multiplicity, of parameters. [hey 
define the final values to be used for Tile nrocessing and detect 
violations (FATAL when a choice cannot be nade, or «aiARNING where the 
decision is made by Data Manayement). 


Data Management overriding rules may be summarized as follows: 


- Basic file varameters are specified in the COBOL orouram, and 
override (and/or complement) any system values that anniv ov 
default. 


- File parameters specified in the COBOL porogram are overrictien 
by any JCL parameters. 


~ File parameters specified in the JCL are overridden hy 
parameters in the file label if the file exists at OPEN time. 


For a detailed description of Data Manayement overriding rules sea 
the UFAS User Guide, BFAS User Guide or HFAS User Guide. 


Opening a file in a COBOL program provides checks on the record 
length which are additional to the general Data Management 
overriding rules. These checks are discussed in the following 
paragraphs. 


The maximum record length of the file must be the same as the 
maximum record length declared in the program that onens the file 
(apart from the exceptions listed below) otherwise the following 
message appears in the Job Occurrence Report: 


CBLI5.IFNsifm RECORD LENGTH CONFLICT (length ON +ILe&) 
followed by the EX03.UNEXPECTED RETURN CODE message showing the 


mnemonic "COBOL 1,RECERR". The file status "95" is returned to the 
program. 
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If however the program bypasses this error through a USE procedure, 
the result is somewhat unpredictable when records are actually 
larger than the record area specified in the program. In general, 
records will be truncated, and the following may hanpens 


- aon a READ statement, a file~status "9U" is returned 


- on a WRITE statement, a file-status "92" is returned if the 
file is a variable length file, but "OO" is returned if the 
file is a fixed length file. 


The exceptions are? 


- The file is assigned to SYS.IN or SYS.OUT: no checking is done 


- The ifn in the SELECT clause for the file is suffixed bv 
~SYSOUT: no checking is done 


- the file is neither H=2000 KEYED, nor H-2000 INDEXED, and it is 
opened in input by a vorogram compiled with the current version 
of the comnilert? the following message appears in the Job 
Occurrence Report: 


CBLI5S.IFNsifn RECORD LENGTH CONFLICT ACCEPTED IN INPUT 
(length ON FILE) 


A normal ("00") file-status is returned to the nroaram. If 2 

record is read whose actual length is greater than the lenath 
of the largest record described in the proyjram, the record is 
truncated, and a file~status "9U" is returned to the program. 


the actual file organization that may be associated with a file is 
snown in Table 9-2. 


ror a Tile whose ORGANIZATION IS INDEXED in the program, the number 
ot record keys, their position relative to the beginning of the 
record, and tneir length must be the saine for the file and the 


proyram. 


OpPLTONAL FILES 


An optional file is one which may be absent at execution time, even 
though OPEN, CLOSE, READ, WRITE etc... may be attempted for the 
Tile. 
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Table 9-2. Permitted File Organizations 


Type of File 
ORGANIZATION 
in COBOL 
program 


SEQUENTIAL 

no qualifier 
UFF 

LEVEL-64 
H~200 


RELATIVE 

no qualifier 
UE 

LEVEL-64 
INDEXED 
no qualified 
Uirk 
LEVEL-64 
H-200 


rome fT PTT 


Notes for Table 9-2 3: 

(i) allowed. 

(2) allowed if the file is OPENed in INPUT or 1-0. 

(3) allowed when ACCESS IS SEQUENTIAL if it is a disk file that is 
OPENed in INPUT or 1-0, or, when ACCESS IS RANDOM or DYNAMIC, 
if it is a disk file that is OPENed in INPUT (START cannot be 
used if the RELATIVE KEY clause is used). 


allowed when ACCESS IS SEQUENTIAL if the file is OPENed in 
INPUT. 


From the point of view of ANS standard COBOL, any optional file 
(i.e., the OPTIONAL parameter is present in the SELECT clause) mist 
be of sequential organization, and must be used for input onlv 
(i.e., Only OPEN INPUT, READ and CLOSE may refer to such a file). 
From the system point of view, all files may be optional. A 
distinction is made between those which are declared absent when the 
execution JCL is written, and those which are declared absent by the 
Operator. 


Files whicn are declared onotional in the COBOL program must have a 
corresponding S$ASSIGN statement in the execution JCL, reagardlass of 
whether the file is to be used or not. ithe S$ASSIGN statement wil! 
normally include a DUMMY or OPTIONAL parameter (discussed below). I[f 
neitner of these parameters is present in the SASSIGN statement, tie 
OPTIONAL parameter in the COBOL SELECT clause is ignored and the 
file is processed normally. On the other hand, if either DUMMY or 
OPTIONAL is specified in the SASSIGN statement and the OPTIONAL 
phrase is not oresent in the corresponding COBOL SELECT clause, the 
message CBL2!1 is output in the Job Occurrence Report and the noroaaram 
behaves as if OPTIONAL was present in the SELECT clause. However, 
the user should normally include the OPTIONAL phrase in the SELECT 
clause. In a future release of the commiler a file ctatis GI will bea 
generated if the OPTIONAL nhrase is omitted for an ontional Tile. 


If the DUMMY or OPTIONAL pnarameter is snecified in the SASSIGN 
Statement of a file which is not a sequential input file, a status 
YI is returned to the program and the situation mav he handled by a 
USE AFTER ERROR PROCEDURE SECTION (see “rror Handling, below). 
The DUMMY and OPTIONAL parameters are used in the followina wave 

~ JCL declaration using the 3ASSIGN statement DUMMY narametere 


ASSIGN ifn, DUMMY$ 


Pnis specifies that the file is absent and all references to 
the file should be ignored. 


-~ JCL declaration with operetor intervention: 


The JCL provides for the possibility of file anseence by the 
SASSIGN statement OPTIONAL parameter. For examoles 


ASSIGN ifn,etfn, DEVCLASS. 6, MiENITA..., OPLIONALS 


In this case, at step execution the svstem searches the volume 
named in MEDIA for this file. If the volume is absent, 2 MOU 
request is sent to the operator. If the operator refises MOUNT 
(CR MS..e-), Or if the file is ansent from the volume monte, 
the file is considered as DUMMY and processed as descrinad 
above. If the media is mounted and the file exists, the file is 
processed as normal. 


The use of optional files is summarized in Figure 9-1]. 
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Figure 9-1. The Use of Optional Files 
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CLOSE WITH LOCK 


If the WITH LOCK option is used to CLOSE a file, Data Management 
assumes that no further processing of the file is to take place in 
the current program. Data Management will therefore prohibit 
reopening of this file in the same STEP. The resources associated 
with the file will be returned to the system and may be assigned by 
another job. Nevertheless, if an OPEN is executed, file status 9M 
(IFN NOT ASSIGN) is returned to the user, and the step is terminated 
(unless there is a USE AFTER ERROR PROCEDURE SECTION in the 
DECLARATIVES). 


THE SPOOL STATEMENT 


Normally, access to a particular file on a device is granted 
exclusively to a nrcgram for the duration of a job sten. Sunnose, 
however, that an executing COBOL program contains the following 
statements’ 


SELECT FLEE: ASS ION: TO) il. 
SELECYT FILk2 ASSIGN TO Fa. 
OPEN INPUT FILET. 


CLOSE FILel wITH LOCK. 
OPEN INPUT FILE2. 


In this examole file FILE] is completely processed before processing 
begins on Tile FILE2. Therefore it would be nossible to use the same 
device Tor Fl and +2. The user can inform the system that this is 
possinle by using the SPOOL statement in conjunction with the POOL 
parameter in SASSIGN: 


POOL T*MS/M402 5 
ASSIGN FI, MAX.Z, POOL, FIRST,... 


Thus only one MSUU0402 will be reserved ror the use of the pooled 
Tiles. 


“when a program closes a file, tne system is able to free the device 
assigned to the file for the use of another volume in the pool . In 
the above COBOL example, the file FILE! itself has been deassigned 
by the inclusion of WITH LOCK in the CLOSE statement. This action is 
not necessary for the purposes of the device pool, but it ensures 
that FILE! cannot be re-opened in the same job step and therefore 
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the corresponding file can be assigned immediately, if necessary, to 
another job. 


For further information on the use of the SPOOL statement see the 
Job Control Language (JCL) User Guide. 


MULTIVOLUME FILES 


If a file is too big to fit on a single disk or tape volume, it can 
be stored on more than one volume. Such a file is called a 
multivolume file. The following paragraphs are applicable to 
sequential multivolume files only. Each part of such a file, disk or 
tape, is known as a "physical unit". 


In the case of disk volumes which contain other files also, only 
part of each volume will be occupied by a physical unit of the 
multivolume file. The space for disk files is allocated using the 
SPREALLOC utility (see the Data Management Utilities Manual). Onlv 
one SASSIGN statement is needed for a multivolume disk file or 
multitape file. The volume-names must be listed in the MEDIA 
parameter of the SASSIGN statement or recorded in the catalog entry 
for the file. 


Boundaries between volumes in a multivolume file are usually 
invisible to the COBOL program which nrocesses such a file. The 
COBOL program does not have to contain any special code to handle 
multivolume files: when the end of one volume is reached the system 
automatically switches to the next volume of the file. However, an 
end-of-volume condition (i.e. end of physical-unit) can be forced 
during sequential input or output by using the CLOSE REEL or CLOSE 
UNIT statement. These statements both have the same effect. They E 
cause processing of the current voltime to cease and tne next volume 
to be opened. This works only for multivolume tape files, and for 
multivolume HFAS sequential disk and tape files. 


The end of "physical unit" is also visible to the COBOL program when 
@ RERUN ON CHECKPOINT-FILE EVERY END OF REEL/UNIT references the 
file. Under these circumstances the end of a physical unit catsas a 
checkpoint to be taken. This works only for multivolume tape files, 
for multivolume HFAS sequential files and, if the MOUNT=1 narameter 
is used (or implied) in the $ASSIGN statement, for multivolume BFAS 
sequential files. 


For more information about multivolume files see the Job Control 
Language (JCL) User Guide. 


MULTI LOGICAL UNIT FILES 


A COBOL program can process several files during a single executic: 
using a single SELECT clause and FD for all the files. Each file mn 


have a different organization (sequential, relative etc.) and may 
use a different access system (UFAS, BFAS, HFAS). Each such 
individual file is called a “logical unit" of the COBOL file defined 
in @ single SELECT clause and FD. 


units is seen as a single file. From the system point of view, each 
logical unit is a complete monovolume or multivolume file. If a 
logical unit occupies several volumes this may be because the 
logical unit is a "multivolume file" (see above) or because "file 
concatenation" is being used (See below). The use of multi logical 
unit files is described in the following paragraphs... 


; From the point of view of the COBOL program this set of logical 


There is no need to explicitly OPEN and CLOSE each logical unit ina 
multi iogical unit file. Each logical unit is opened and closed 
automatically in a manner analogous to multivolume file processing. 
Alternatively, the COBOL program can swap logical units by using the 
CLOSE REEL or CLOSE UNIT statement. This causes the current logical 
unit to be closed before the end has been reached? the next logical 
unit is then opened immediately. Note that, when using multi logical 
unit files, the CLOSE REEL and CLOSE UNIT statements cannot he tsed 
to close physical units (1i.e., volumes). When a RERUN ON 
CHECKPOINT—-FILE EVERY END OF REEL/UNIT references the file, the end 
of a logical unit causes a checkpoint to be taken. For such files. 
physical units, as described above, are not visible from the CO80L 
program. 


There must be a SASSIGN statement in the JCL for each logical unit 
to be processed. There may also be a SPOOL statement to allocate a 
single device for all the logical units being processed. For 

3 examples 


COBOLs 
SELECT INPUT-FILE ASSIGN TO IFILE... 


JCL3 
POOL MI/T9$ 
ASSIGN IFILE-1, E.FILEA, POOL, FIRST... 
ASSIGN [FILE-2, E.FILEB, POOL, NEXT... 
ASSIGN IFILE-3, E.FILEC, POOL, NEXT... 


In this example the internal-file-name is suffixed with a hyphen 
followed by the sequence number of the logical unit within the file 
(without leading zeros). Note that the internal-file-name speci fied 
in the COBOL SELECT clause must be short enough to permit the 
addition of the suffix. The maximum length of an internal-file-name 
including suffix is 8 characters. 


If only one logical unit is to be processed by the COBOL program a 
normal SASSIGN statement must be used with no suffix on the 
a internal-file-name. For example? 


ASSIGN IFILE, E.FILE,... 
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If a COBOL program is to process multi logical ttnit files the VACSEG 
(vacant segment) parameter must be used with SLINKER. The format of 
this command is? 


VACSEG = (SHARE = +a) 


where "a" {s calculated as follows. For each multi logical unit file 
in the program the maximum number of logical units is multiplied by 
2 and one is added. The resulting values for each multi logical unit 
file are added together and augmented by 2 to give "a". See Section 
III for details of SLINKER,. 


MULTIPLE FILE TAPE VOLUMES 


Several self-contained files may be written to or read from a single 
magnetic tape by a COBOL program (only one file may be open at one % 
time). 


There must be a SELECT clause in the FILE-CONTROL paragraph and 

a SASSIGN statement in the JCL for each file in a multiple file tape 
volume. There may also be a SPOOL statement in the JCL to allocate a 
single device for the magnetic tape. The FSN (file sequence number) 
parameter must be used in each SASSIGN statement to specify the 
position numbers of the files. The DEVCLASS and MEDIA must be the 
same for all the files. For examples 


COBOL 8 
SELECT FILEA ASSIGN TO IFILEA. 
SELECT FILEB ASSIGN TO IFILEB. 
SELECT FILEC ASSIGN TO IFILEC. 


JCLs 
POOL MT/T93 
ASSIGN IFILEA,E.FILEA, DEVCLASS=MT/T9,MEDIA=TAPEA,FSN=1,POOL,FIRSTS3 
ASSIGN IFILEB,E.FILEB, DEVCLASS=MT/T9 ,MEDIA=TAPEB,FSN=2,POOL,NEXT3 
ASSIGN IFILEC,E.FILEC, DEVCLASS=MT/T9,MEDIA=TAPEC ,FSN=3, POOL, NEXTS 


The same internal-file-name can be used for all files in a multiple 
file tape volume if desired. However, in this case, a MULTIPLE FILE 
TAPE clause must be present in the I-Q-CONTROL paragranh in the 
COBOL program. For example: 


COBOL 8 
SELECT FILEA ASSIGN TO IFILE... 
SELECT FILEB ASSIGN TO IFILE... 
SELECT FILEC ASSIGN TO IFILE... 


MULTIPLE FILE TAPE FILEA POSITION 1, FILEB POSITION 2, 
FILEC POSITION 12. 


JCLs 
POOL MT/T9$ 
ASSIGN IFILE-1,E.FILEA,DEVCLASS=MI/T9,MEDIA=TAPEA, 
FSN=! ,POOL,FIRST3 | 
ASSIGN IFILE-2,E.FILEB,DEVCLASS=MI/T9,MEDIA=TAPEB, 
FSN=2,POOL,NEXT$ 
ASSIGN IFILE-12,E&.FILEL, DEVCLASS=MT/T9,MEDIA=TAPEC, 
FSN=12,POOL,NEXT3 


In this example the internal~file-name IFILE is used for each of the 
files. However, the internal-file-names in the SASSIGN statements 
must be suffixed with a hyphen followed by the position number of 
the respective file within the multiple tape file volume. The 
compiler will output a message in the program listing for each 
internal-file-name, showing the suffix which must be used in the 
SASSIGN statement. Note that the internal-file-name specified in the 
COBOL SELECT clause must be short enough to permit the addition of 
the suffix. The maximum length of an internal-file-name (in a COBOL 
program) including suffix is 8 characters. The DEVCLASS and MEDIA 
must be the same for all of the files. Finally, the FSN parameter 
must also be used to specify the position numbers of the files. 


If the same internal-file-name is used for all the files ina 
multiple file tape volume but only one. of these files is to he read 
during a particular program execution, then the position ntimber 
suffix need not be used in the SASSIGN statement, though it can he 
used if desired. A position number suffix can also be specified even 
when all the internal-file-names are unique. 


The files in a multiple file tape voliume can be specified in the 
MULTIPLE FILE TAPE clause.of the I-Q-CONTROL paragraph in the COBOL 
program, even if a different ifn is used for each file in the tape. 
For eXamples 


MULTIPLE FILE TAPE FILEA POSITION 1, FILEB POSITION 2, 
FILEC POSITION 12. 


This clause is not essential (except when the same ifn is used for 
all files) and any values specified in the clause will be overridden 
by the JCL values described above. For more details of this clause 


see the COBOL Language Reference Manual. 


FILE CONCATENATION 


File concatenation should be distinguished from the concepts of 
multivolume files, multi logical unit files and multiple file tape 
volumes which have been discussed above. 


Several UFAS or BFAS sequential tape files may be accessed in 
sequence by means of file concatenation; the files are treated by 
the program as if they are one logical sequential file. Boundaries 
between concatenated files are invisible to the COBOL program that 
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processes such files. When the end of one file is reached, the 
system automatically switches to the next file. The CLOSE REEL and 
CLOSE UNIT statements work in a manner similar to multivolume files. 
These statements cause the next volume to be opened. This volume may 
be the next volume in a multivolume file or the first volume of the 
next concatenated file. RERUN on CHECKPOINT-FILE EVERY END OF 
REEL/UNIT also operates on end of volume. 


File concatenation may also be used with cassette files. File 
concatenation is performed by the snecification of the respective 
SASSIGN statements, in the required sequence, with the omission of 
the internal-file-name on 411 but the first SASSIGN statement. It is 
strongly recommended that the SPOOL statement be used to allocate a 
Single device for all the files to be concatenated. For examnles 


POOL MT/T93 

ASSIGN ifn, MY.FILEI,DEVCLASS=MT/T9, MEDIA=Al ,POOL, FIRST? 
ASSIGN ,MY.FILE2,DEVCLASS=MT/T9, MEDIA=A2, POOL, NEXT$ 
ASSIGN ,MY.FILE3,DEVCLASS=MT/T9 ,MEDIA=A3,POOL, NEXT? 


In the above example, the three tape files are regarded as a single 
sequential file, starting at MY.FILE! and finishing at MY.FILE3. 
Note that the concatenated files must all have the same RECFORM, 
BLKSIZE and RECSIZE parameters and must have the same device class 
and device attributes. 


One or more of the files to be concatenated may be a multivolme 
file if required. Furthermore, file concatenation can be used in a 


multi logical unit file. One or more of the SASSIGN statements for a 
multi logical unit file can use the file concatenation facility. 


UFAS, BFAS AND HFAS 


The following file access systems are available with Level 64: 


UFAS - Universal File Access System. 


BFAS - Basic File Access System 
~ HFAS - H200/2000 File Access System. 


UFAS is the primary file access system. It is used by IDS/II for 
data base management. It offers a wide range of facilities and 
provides considerable device independence. 


BFAS is an alternative to UFAS. BFAS is a relatively device 
dependent file access system which may offer better performance for 
certain types of application. 


HFAS reads and writes files in H200/2000 formats. This file access 
system should be used for compatibility only. 
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UFAS and BFAS are the Level 64 native file access systems. They are 
completely compatible. For magnetic tape, the file access system 
used is irrelevant because UFAS and BFAS tapes have exactly the same 
format. Sequential and indexed HFAS files are comnatible in certain 
respects with UFAS and BFAS files. 


Some notes concerning UFAS, BFAS and HFAS are given below. For 


further information refer to the UFAS User Guide, BFAS User Guide, or 
HFAS User Guide. 


ORGANIZATION 


The selected file access system may be indicated in the ORGANIZATION 
IS clause. of the FILE-CONTROL paragraph. The following values may be 
used in this clause: 


- UFF (specifies UFAS)* this is the default when no ORGANIZATION 
is specified. 


- LEVEL~-64 (specifies BFAS). 
- H-2000 (specifies HFAS). 


However, this option is not part of the ANS standard and is 
significant only in the following circumstances! 


~ The file is an output disk file. 
-~ A SPREALLOC statement has not heen used for the file. 


It is recommended that SPREALLOC be used for all permanent output 
disk files. SPREALLOC provides a centralized and visible method of 
specifying file attributes. 


APPLY NO-SORTED= INDEX 


The APPLY NO-SORTED-INDEX clause of the I-Q-CONTROL paragraph can be 
used to speed up the creation of a UFAS indexed file with ALTERNATE 
KEYS by not sorting the alternate (secondary) key-indexes. The 

alternate indexes can be sorted after program execution by using the 


utility SSORTIDX. See the Data Management Utilities Manual for 
details of $SORTIDX. 


Note that the APPLY NO-SORTED-INDEX clause is not vart of the ANS 
standard. 


APPLY NO-RESIDENT— INDEX 


Unless otherwise specified, the cylinder index tables of BFAS 
indexed sequential files are automatically. loaded into memory. AS a 
result, access times are reduced, particularly where access 1s 
RANDOM. 
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However, the user may have some reason (e.g.the indexes are very 
large) for wanting the indexes to be non-resident. In this case the 
APPLY NO-RESIDENT-INDEX clause must be used in the [-0-CONTROL 
paragraph for the relevant file. 


Note that the APPLY NO-RESIDENT-INDEX clause is not part of the ANS 
standard. 


The S$DEFINE statement parameters NRESIDX and RESIDX can be used 
instead of the APPLY NO-RESIDENT-INDEX clause . SNEFINE can also be 


used to override the APPLY NO-RESIDENT-INDEX clause. 


ERROR HANDLING 


If a system procedure returns to the COBOL program an abnormal 
return cOde aS a result of an I/0 operation, the step is abnormally 
terminated and an exception renort is printed in the Job Occurrence 
Report. Abnormal termination can be avoided if the COBOL program 
contains a USE AFTER ERROR PROCEDURE SECTION in the DECLARATIVES for 
the relevant file. This SECTION can then diagnose the error tsing 
the FILE STATUS associated with the file or the system return code 
Obtained by calling the routine H UCBL_UGET4. These subjects are 
discussed in the following paragraphs. 


The FILE STATUS 


The following example shows the way in which a USE AFTER ERROR 
PROCEDURE SECTION and FILE STATUS can be useds 


FILE-CONTROL. 
SELECT FILEA ASSIGN TO FILEA 
FILE STATUS IS FSl2... 


WORKING=-STORAGE SECTION. 
Ol FSI2 PIC XX. 


PROCEDURE DIVISION. 
DECLARATIVES. 
FILEAMERROR SECTION, 
USE AFTER ERROR PROCEDURE ON FILEA. 


Pl. 
DISPLAY "STATUS = " FS12. 
EXIT. 


END DECLARATIVES. 
MAIN SECTION, 
DEBUT. 

OPEN INPUT FILEA. 
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If an I70 operation on FILEA results in an abnormal system return 
code being generated, control will be handed to paragraph Pl. The 
FILE STATUS FSI2 (specified in the SELECT clause for FILEA) is 
displayed. The EXIT then hands control back to the instruction 
following the I/O request. See the COBOL Language Reference Manual 
for a full description of USE AFTER ERROR. 


The FILE STATUS data item (two characters) is set by a COBOL 
run-time package procedure according to the return code obtained 
from the system Data Management procedures. The meanings of the 
values to which FILE STATUS can be set are given in the COBOL 
Language Reference Manual. 


When a USE AFTER ERROR PROCEDURE SECTION is invoked for the first 
time from a given point in the program, the following message is 
output in the Job Occurrence Report. 


CBLI8 IFNtifn rc AT ADDRESS address [ILN=iln (XLN=xIn] ] 


Return Code 


The FILE STATUS facility is part of ANS standard COBOL and is de- 
scribed in the COBOL Language Reference Manual. The information pro- 
vided in the FILE STATUS item is normally sufficient to diagnose 

most I/O errors. However, the full return code generated by Data 
Management can be obtained and analyzed by the COBOL program. This is 
done by calling the procedure H CBL UGET4 in the COBOL run-time pack- 
age. This facility is not part of the ANS standard and for this 
reason should be avoided whenever FILE STATUS provides sufficient 
information. The following example shows the use of H_CBL_ UGET4: 


WORKING=STORAGE SECTION. 

77 RET=CODE-| USAGE COMP-1I. 
77 RET-CODE~2 USAGE COMP-1. 
77) ~=RET-CODE-1X PIC S9(5). 

V7 RET-CODE-2X PIC S9(5). 


PROCEDURE DIVISION. 
DECLARATIVES. 
FILEA@ERROR SECTION 
USE AFTER ERROR PROCEDURE ON FILEA. 


Pl. 
CALL "H_CBL_UGET4" USING RET-CODE-1 RET-CODE-2. 
MOVE RET-CODE-1 TO RET-CODE-1X. 
MOVE RET-CODE-2 TO RET=CODE-2xX. 
DISPLAY "RET.CODE = " RET-CODE-1X RET-CODE-2X. 
EX~IT. 
EXIT. 


END DECLARATIVES. 
MAIN SECTION. 
DEBUT. 


OPEN INPUT FILEA. 


9-16 


The return code is a hexacecimal value. The significance of each 
return code value is given in the Error Messages and Return Codes 
Manual. 


RESTRICTIONS ON CERTAIN FILE ORGANIZATIONS 


Some features, though described in the COBOL Language Reference 
Manual, are not available for certain file organizations. These are 
listed in Table 9-3. 


Table 9-3. Features Not Available with Certain File Organizations. 


Feature not available File organization 


Physical units UFAS disk sequential 
BFAS disk sequential 


RERUN EVERY UFAS sequential 
END OF UNIT 


Variable length records BFAS indexed and relative 
HFAS sequential (disk) indexed, 


and keyed. 


Creation of files when ACCESS| HFAS indexed 

IS RANDOM and keys are 

not in ascending order 

ALTERNATE RECORD KEY BFAS indexed 
HFAS indexed 


START subkey HFAS indexed 
START > , START NOT < BFAS relative 


When such a feature is used for a file organization where it is not 
available, it generally results in a file states "30" returned to 
the program and a return code mnemonic FUNCNAV reported in the Joh 
Qccurrence Report. 


RECORD SIZE 


The maximum record size used on a file is determinated according to 
the following criteria: 
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~ For a report file: 
a) If the RECORD CONTAINS clause is present, the specified 
record lenyth is augmented by 8. 
b) If the RECORD CONTAINS clause is not present, the record 
length is assumed to be 140. 


~ For the other files: 

Unless one of the following conditions exists, the record length 

is taken to be the length of the largest record defined for the 

file. If one of the following conditions exists, this length is 

augmented by 8. 

a) The internal-file-name in the SELECT clause is suffixed by 
-PRINTER or -SYSOUT and WITH ASA or WITH SARF is not 
speci fied. 

b) WITH SSF is specified in the SELECT clause. 

c) The LINAGE clause is snecified in the File Description 
entry. 

d) The file is referenced in a WRITE statement with the 
BEFORE/AFTER ADVANCING phrase. 


The ACTUAL KEY Phrase 


By using the QUTPUT command of the SSORT utility a sequential file 
of disk addresses can be produced. This contains, in sorted order, 
the disk addresses of the records input to SSORT. The address file 
can later be read into a COBOL program and can be used to read, ina 
sorted sequence, the records of the data file input to the SSORT. 
That is, the data file is not actually sorted hy S$SORT, but it can 
be read in the sorted sequence by a COBOL program, using the address 
file produced by SSORT. 


In order to read the data file in the sorted sequence the SELECT 
clause for the data file must contain an ORGANIZATION RELATIVE 
phrase and an ACTUAL KEY phrase (instead of RELATIVE KEY). The 
address file, on the other hand, must be read as a sequential file. 
Each record on the address file will contain a disk address in the 
first five bytes. As each record of the address file is read, the 
address must be moved to the 5 byte data item snecified in the 
ACTUAL KEY phraSe of the data file. The next READ statement exectted 
on the data file will then input the next data record in the sorted 
sequence, 


The ACTUAL KEY phrase can only be used if the LEVEL=L64 parameter is 
specified in the SCOBOL statement when the program is comniled. Note 


that the ACTUAL KEY phrase is not part of the ANS Standard. 


SSORT will only write an address file if one of the values ANNROUT, 
ADDATA or KEYADDR ts specified in the OUTPUT command. In addition, 
if the ADDRFORM parameter is present in the SSORT statement it nust 
contain the value TIRDD (this is the default value) which specifies 
the format of the address. 
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SECTION X 
STANDARD RECORD FORMATS 


There are four standard record formats recognized by Levei 64 Data 
Management. These formats may be used in magnetic tape or disk 
files. They are? 


- Standard Access Record Format (SARF) 
In this format each record is composed exclusively of normal 
data without any special heading information. This is the 
format normally used in data files or subfiles which are passed 
between COBOL programs. 


- System Standard Format (SSF) 
In this format each record comprises on eight byte header 
followed by normal data. The function of this header is to make 
the file or subfile device-independent: a file or subfile in 
system standard format may be routed from the disk on tape to 
any kind of I/0 device. This format provides the Stream Reader, 
compilers, SLIBMAINT and Output Writer with a standard method 
of handling their input and output data. 


~ American Standards Association Format (ASA) 
In this format each record consists of a one byte header 
followed by normal data. The header may be thought of as 
containing a subset of the information held in an SSF header. 
ASA files however are not device independents they may only 
contain data to be printed. ASA files should be used for 
compatibility with other computer systems. They should not 
normally be used for print files which are to be processed 
solely within the Level 64 system. In order to use this format, 
the programmer must specify WITH ASA in the SELECT clause for 
the file. The programmer is responsible for the contents of the 
first character of the record, which contains the skip 
information. 


- Device Oriented Format (DOF) 
In this format each record comprises an eight byte header 
followed by normal data. The header contains device oriented 
control information in the form used by the various unit record 
devices. This format is only used by Level 64 "Program Mode" 
PM1QO and PM200 systems. 


ASA and DOF are rarely used by the COBOL programmer and will not be 


discussed further in this section. The remainder of this section 
discusses SSF and SARF. 
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Notes: Whenever the word "files" is used in the remainder of this 
section it should be taken to mean “files or subfiles". 


SYSTEM STANDARD FORMAT (SSF) 


SSF records include an. eight=byte header in addition to the normal 
data. The main components of this header are? 


~ Record type. This indicates whether the record is a control 
record or a normal data record. Control records are added to 
the file by the system or by the Report Writer (if used) to 
control the handling of the file and the production of page 
headings etc. 


- Header type. If the record is a control record this speci fies 
the type of control record. 


~ Truncation value. This specifies the number of space characters 
which have been truncated at the rightmost end of the record. 
Truncation (packing) occurs only in records which were created 
with a language type of COBOL or COBOLX, 


- Line number. This contains the sequence number of the record 
within the file. It may be derived from the data cards used 
when the file was read into the system; it may also be 
generated by the NUMBER option of the SLIBMAINT command MOVE or 
by the $LIBMAINT command RENUMBER. 


~- Form control. This specifies the paper movement required when 
printing the record. 


If the first record in an SSF file is a control record with a header 
type 101 and WITH SARF is not specified in the SELECT clause for the . 
file, then the file is handled by the system as if all records in 
the file are in SSF format. If the file does not have such a record 
at the beginning then it is handled as if all records are in SARF 
format. If the type 101 contro) record is present it contains an 
indication of the language type specified when the file was created 
(e.g TYPE = COBOLX in the MOVE command of $LIBMAINT). COBOL 
automatically outputs a type IO! control record if the file is 
implicity or explicity specified as SSF. 


The following paragraphs discuss the relationship between SSF and 
the Stream Reader, SLIBMAINT, the COBOL compiler, COBOL programs and 
the Output Writer. 


che Stream Reader, SLIBMAINT and the COBOL Compiler 
an SSF file can be created from cards contained in an input 
enclosure. If TYPE = COBOL or TYPE = DATASSF is specified in the 


SINPUT statement the Stream Reader will create a temporary subfile 
in the system file SYS.IN and the cards will be read into this 
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subfile as a series.of SSF records. This is known as a standard 
SYSIN subfile and it exists only for the duration of the job. 


The standard SYSIN subfile may then be read by any job step or 
utility. For example it can.be read by $LIBMAINT and moved to a user 
library: 


SJOB, s@ 
LIBALLOC SL, (SSF.LIB,SIZE=2),MEMBERS = 133 
LIBMAINT SL,LIB=SSF.LIB,COMFILE = *SSFENC$ 
S INPUT SSFENC, TYPE = DATASSF3 
MOVE COMFILE s SSFMEMB,TYPE = COBOLX3 
SENDINPUTS 
SENDJOBS$ 


In this example a resident source library SSF.LIB is set up by 
SLIBALLOC with a size. .of two cylinders. Card images from the input 
enclosure are then moved from the standard SYSIN subfile to the 
library SSF.LIB by the MOVE command of $LIBMAINT. A new member 
SSFMEMB is created in library SSF.LIB to contain the data. Tne TYPE 
= COBOLX parameter has a special effect on the format of the records 
in the library member. This is discussed in Section I, Input and 
Maintenance of Source Programs. 


An SSF library member may be read by a user program. Alternatively, 
a uSer program may read an input enclosure directly from the 
standard SYSIN subfile. However, this is normally done only when 
TYPE = DATA is specified in the SINPUT statement, or if there is no 
TYPE parameter. In this case the records will be held in SARF 
format. 


The EDIT and UPDATE commands of SLIBMAINT may be used to alter the 
contents of SSF library members. With these commands the user may 
specify the lines of the library member to be altered. hy speci fying 
the line numbers held in the SSF headers. 


The creation and updating of SSF library members is discussed in 
detail in Section I and will not be discussed further in the current 
section. 


If the SSF library member contains a COBOL program it can he 
processed by the COBOL compiler. The compiler will check the line 
numbers in the SSF headers.and report on any descending sequences in 
the member. The use of the compiler Is covered in Section II. 


If the SSF library member contains JCL it can be used by a $INVOKE, 


SEXECUTE or $RUN statement (see Job Control Language (JCL) User 
Guide). 
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Reading SSF Files in COBOL Programs 


In a COBOL program any input file may be SSF or SARF irrespective of 
the way in which it is described in the COBOL SELECT clause. The 
presence or absence of a type 101] control record at the start of the 
file indicates the format of the file. Level 64 Data Management 
checks for the existence of this record and processes the file 
accordingly. 


A COBOL program can receive SSF records from Data Management either 
with or without the SSF header. If the WITH SARF phrase is included 
in the SELECT clause of the file, the complete SSF record including 
the header will be passed to the COBOL program. If the WITH SSF 
phrase is included in the SELECT clause, or if there is no WITH 
phrase, the SSF header will be stripped from the record before it is 
passed to the COBOL program and control records will not be passed 
to the COBOL program. Note that the phrases WITH SSF and WITH SARF 
are not part of the ANS Standard and should be avoided unless they 
are essential. 


The following example illustrates the use of an SSF input file on 
magnetic tape. In this example the WITH SARF phrase is used which 
will cause the SSF headers and control records to be passed to the 
COBOL program. 


COBOL! . 
SELECT INFILE ASSIGN TO F! WITH SARF. 


JCLs 
ASSIGN Fl, SSF.FILE, DEVCLASS=MT/T9/D1600, MEDIA=TAPE1] 3 


The next example shows the use of an SSF library member on disk. The 
SSF headers will be stripped from the records before they are passed 
to the COBOL program. In this example the WITH SSF phrase is 
redundant and serves as documentation only. 


COBOL: 
SELECT INMEMBER ASSIGN TO F2 WITH SSF. 


JCL# 
ASSIGN F2,SSF.LIB, SUBFILE=SSFMEMB, DEVCLASS=MS/M450,MEDIA=DISKI 3 


The final example illustrates the use of an SSF input enclosure 
(which is a temporary subfile of the system file SYS.IN). No WITH 
phrase is used. However, the SYS.IN subfile will begin with a tyne 
10] control record so it will be treated as an SSF file by Data 
Management. As there is no WITH SARF phrase the headers will he 
stripped from the records before they are passed to the COBOL 
Srogram. 
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COBOLS 
SELECT INCLOSE ASSIGN TO F3. 


JCLs 
ASSIGN F3, *SSFENC$ 
$ INPUT SSFENC, TYPE = DATASSF?3 


SENDINPUT$ 


If the SSF header contains a nonzero truncation value, that is, 


when blanks have been truncated at the end of a record, the blanks 
are not restored when the record is read. The record length, in such 
caSes,does not include the truncation value and only refers to the 
length of the record on the 1/0 medium. Truncation values are 
generated when, for example, the file has been created by $LIBMAINT 
with a language type of COBOL or COBOLX. 


In fact, unless this input enclosure was needed in SSF form for 
another step of the same job, it would be better to hold the data in 
SARF form. In this case the SINPUT statement should not have a TYPE 
parameter (DATA would be assumed, indicating SARF format) but the 
SELECT clause would remain unchanged. 


Writing SSF Files in COBOL Programs 


An output file is in SSF format if the WITH SSF phrase is included 
in the SELECT clause of the file, or if the ADVANCING phrase is used 
in an associated WRITE statement, or if the FD contains the REPORTS 
Clause or LINAGE clause or, unless otherwise specified, if the 
internal-file-name in the SELECT clause has a suffix -PRINTER or 
-~SYSOUT. For example’ 


SELECT QOUTFILE ASSIGN TO F1 WITH’ SSF. 
SELECT QUTFILE ASSIGN TO FI-PRINTER. 
SELECT OUTFILE ASSIGN TQ FI-SYSOUT. 


However, under certain circumstances, such a file will be output as 
“edited SYSOUT" instead of SSF. This is explained in Section XI, 
Using Unit Record Files. 


Output SSF files are usually print or punch files or subfiles. The 
use.Of print and punch files is described in Section XI and will not 
be discussed in the present section. 


STANDARD ACCESS.RECORD FORMAT (SARF) 
SARF records have no special header but are composed exclusively of 


user data. This is the format normally used in data files which are 
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passed between COBOL programs. However, SARF files may also be 
handled by the Steam Reader, SLIBMAINT, the compilers and the Output 
Writer. The following paragraphs discuss the use of SARF format. 


The Stream Reader, SLIBMAINT and the COBOL Compiler 


A SARF library member can be created from cards contained in an 
input enclosure. Normal practice should be to omit the TYPE 
parameter from tre S$INPUT statement (equivalent to TYPE=DATA). If 
this is done, the Stream Reader will create a temporary subfile in 
the system file SYS.IN and the cards will be read into this subfile 
as a series of SARF records. That is, a standard SYSIN subfile will 
be created for the duration. of the job. 


The standard SYSIN subfile may then be read by the SLIBMAINT utility 
and may be moved to a user library. The following example 
illustrates this sequence 3 


SJOB eee 

LIBALLOC SL,(SARF.LIB,SIZE=2) ,MEMBERS=!1 33 
LIBMAINT SL,LIB=SARF.LIB,COMFILE=*SARFENC $ 
$ INPUT SARFENC$ 

MOVE COME ILE SARFMEMB, TYPE=DATA$ 


e 


SENDINPUT t 
SENDJOB4 


In this example, a resident source library SARF.LIB is set up by 
SLIBALLOC with a size of two cylinders. The card images from the 
input enclosure are then moved from the standard SYSIN subfile to 
the library SARF.LIB by the MOVE command of $LIBMAINT. A new member 
SARFMEMB is created in library SARF.LIB to contain the data. 


The EDIT and UPDATE commands of $LIBMAINT cannot be used to alter 
the contents of SARF library members. However, if the SARF library 
member contains a COBOL program, it can be processed by the COBOL 
compiler. The use of the compiler is covered in Section II. If the 
SARF library member contains Job Control Language it can be tsed by 


a SINVOKE, SEXECUTE or SRUN statement (see Job Control Language 
(JCL) User Guide). 


Reading SARF Files in COBOL Programs 


As mentioned previously, a COBOL program may read any file in SSF or 
SARF format without specifying WITH SSF or WITH SARF. 


The user must not, implicitly or explicitly, specify WITH SSF in the 


SELECT clause of SARF input files. Otherwise, the first eight 
characters of each record will not be passed to the user program and 


10-06 


some complete records will not be passed to the user program. On the 
other hand, if neither WITH SSF nor WITH SARF is specified and if 
the Tirst record on the file happens to look like a type !0I control 
record, Data Management will incorrectly assume that the file is in 
SSF format. 


To read a SARF file successfully, either the WITH phrase should be 
omitted entirely or the WITH SARF phrase should be specified. 
Note that the phrases WITH SSF and WITH SARF are not part of the ANS 


ees 


Writing SARF Files in COBOL Programs 


An output file may be in SARF format if the WITH SARF phrase is 
specified in the SELECT clause of the file or if the WITH phrase is 
omitted entirely and none.of the options implying WITH SSF is used 
for the file (see above). However, under certain circumstances, such 
a file will be output as "edited SYSOUT" instead of SARF. This is 
explained in Section XI, Using Unit Record Files. 


GENERAL POINTS CONCERNING SSF AND SARF 
The Output writer 


The Output Writer can print or punch any SSF or SARF file. It is 
called by the statements S$SYSOUT and SWRITER. The Output Writer is 
normally used to output print or punch files produced by user 
prograns. However, it can also print or punch files which have not 
been specially formatted for output, such as a library member 
containing a COBOL proyram or a normal disk or tape file containing 
data. 


The use of the Output Writer for print and punch files is discussed 
in Section Xl. 


Summary of Rules for the SELECT Clause 


fable !U-1l summarizes the rules concerning the COBOL SELECT clause 
when using SARF or SSt files. 
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Table 


Type of IZ0 
Required 


Input with 
header and | 
control records] 
removed 


Input with 
neader and 
control records 
intact 


Output SOF 
or kdited 
SYSOUT 


| 
Output 

or Edited 

SYSOQUT 


SARF 


10-1. Summary of Rules for the SELECI] Clause 


SELECT Statement Options 
NotetWITH SSF/SARF are not ANS standard 


WITH SSF (this is the default if 
the input file is SSF, and should be 
omitted). 


WITH SARF (must be specified). 
Note thet the record description 
must have an eight byte FILLER 
at the start. 


WITH SSF, or WRITE with the ADVANCING 
phrase, or FD containing the REPORT 
clause or LINAGE clause or -PRINTER 
suftix or -SYSOUT suffix on internal 
~file-name (one of these 

must be specitied). 


WITH SARF (this is the default if the 
input file is SARF, and should be 
omitted). WITH SSF must not be used for 
SARF files. 


WITH SARF (default for all 
output files and should be omitted). 
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SECTION XI 
USING UNIT RECORD FILES 


This section describes the way in which the following unit record 
files are used? 


- Print files3 

- Punched card files? 

- ACCEPT, DISPLAY and STOP literal "files" (strictly speaking, 
from a COBOL point of view, these are not files because they 
have no FD)3 


* 

~ Cassette files. 
PRINTING 
Printing can be done in the following ways? 

~ Data can be stored in a SYSOUT file for printing later by the 

Qutput Writer. 

~ Data can be sent direct to the printer. 
Print data should normally be output to a SYSOUT file. The direct 
use.of printers slows down program execution and reduces the 
throughput .of the printer. 
See The Report Writer, Section XII, for information concerning | 
printed reports produced using the Report Writer facility. 


Using SYSOUT Files for Printing 


The following types of SYSOUT file can be used to store data to be 
printed: 


- Standard SYSOUT subfile. 
- Permanent SYSOUT file. 
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The standard SYSOUT file (SYS.OUT) is a system file. The SYSOUT file 
is created at system generation and is located on a resident disk. 
For each Step, one or more subfiles is assigned for each unit record 
output file defined in the step. During execution of each step, data 
to be printed or punched is sent to subfiles of the standard SYSOUT 
file. No SASSIGN need be made for a standard SYSOUT subfile. 
Standard SYSOUT subfiles exist until the data in them has been 
printed or punched. When output processing is finished, the subfiles 
are automatically deleted. 


A permanent SYSOUT file is a sequential disk or tape file or source 
library member which is not automatically deleted after Output 
Writer activity, or a permanent magnetic tape file (useful for large 
volumes of output). A permanent SYSOUT file must be assigned by the 
uSere 


SYSOUT files are normally written in a format known as "edited 
SYSOUT". This is done automatically if certain conditions, described 
below, are met. This has the following effect on output data? 


- Records are formatted for the output device. 
- The page is formatted (page headers, numbers etc). 
- Trailing blanks are suppressed. 


An edited SYSOUT file cannot be handled as a normal SSF, SARF or ASA 
file. 


If the record size of the SYSOUT file is less than 600 bytes 
(specified when the file is allocated using the SPREALLOC statement 
or later in the S$DEFINE statement) it will be written as an SSF, 
SARF or ASA file. If the record size is greater than or equal to 
600 bytes the file will be in edited SYSOUT format. SSF, SARF or ASA 
files which are to be printed will be edited subSequently by the 
Output Writer. Note that the uSe of a record size of 600 does not 
imply storage inefficiency, since the RECFORM will be VB (variable). 
However, editing of SSF, SARF or ASA files during printing, rather 
then when the file is written, is relatively inefficient and should 


be avoided. See the Job Control Language (JCL) User Guide for more 
information about SYSOUT files and the Output Writer. 


There are certain situations in which a SYSOUT file should not be in 
edited SYSOQUT format. If the SYSOUT file is to be processed before 
printing (e.g. by another COBOL program or by SLIBMAINT), it should 
not be written in edited SYSOUT format. Also, SYSOUT files produced 
by the COBOL Report Writer using the report selection facility 
should not be written in edited SYSOUT format. Note that a standard 
SYSOUT file is always an edited SYSOUT file. 


ais rules for writing SSF, SARF and ASA files. are given in Section 
X, Standard Record Formats. 


The method of producing permanent and standard SYSOUT files with or 
without edited SYSOUT format is summarized in Table I!-l. 
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Table Il-l. Methods. of Producing SYSOUT Print Files 


JCL COBOL 
TYPE OF SYSOUT FILE CREATED 
SASSIGN| S$SYSQUT -SYSOUT 
PART 1} 
| A standard SYSOUT file is assigned | | | 
by the system. The file is written NO YES OPTIONAL 


in edited SYSOUT format. The file 
is printed. WHEN=DEFER in the 
$SYSOUT statement will be ignored. NO OPTIONAL 
This parameter is used only with 
permanent SYSOUT files. 


PART 2 


The step is abnormally terminated NO | NO NO 
when the file is opened because no 

implicit or explicit file assign- 

ment has been made‘ RC=IFNNASG). 


PART 3 
A permanent SYSOUT file is written. 
The file will be in edited SYSOUT 
format if the record size is at 
least 600 bytes. The file is prin- 
ted by the Output Writer unless the 
WHEN=DEFER parameter is speci fied 
in the $SYSOUT statement. 


YES YES NO 


PART 4 
A permanent SYSOUT file is written. 
The file will be in edited SYSOUT 
format if the record size is at 
least 600 bytes. The file is not 
printed by the Output Writer. A 
SWRITER statement must be given to 
print the file. 


YES NO YES 


PART 5 
A permanent SYSOUT file is written. 
The file will not be in edited 
SYSOUT format, irrespective of the 
record size. The file is not 
printed by tne Output Writer. A 
SWRITER statement must be given to 
print the file. 


NO NO 
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The following notes explain the headings used in Table I!I-I3 


SASSIGN is a SASSIGN of a permanent SYSOUT file to be 
included in the JCL (YES or NO) ? 


SSYSOUT is a $SYSOUT of the SYSOUT file to be included in the 
JCL (YES, NO or OPTIONAL) ? 


-SYSQUT is the ~SYSOUT suffix to be used after the 
internal- file-name in the COBOL SELECT clause (YES, 
NO or OPTIONAL) ? 


In part | of Table 11-1 a standard SYSOUT subfile is automatically 
assigned by the system. As can be seen from the table, this only 
happens when the user does not explicitly assign a SYSOUT file and 
when one or both of the following conditions applv? 


- The S$SYSOUT statement is used. 
- The -SYSOUT suffix in the COBOL SELECT clause is used. 


If neither $SYSOUi nor -SYSOUT is specified, the user must assign a 
permanent SYSOUT file using the $ASSIGN statement. This is done in 
part 5 of the table. In part 2 of the table the user does not assign 
a permanent SYSOUT file and the step is abnormally terminated. 


In part I of the table the SYSOUT file will be written in edited 
SYSOUT format. This will also be the case in parts 3 and 4 if the 
SYSOUT file has been preallocated with a record size greater than or 
equal to 600 bytes. In all other cases the SYSOUT file will not be 
in edited SYSOUT format. This is the case in part 5 of the table. 


Standard SYSOUT files are always printed automatically by the QOutout 
Writer. They cannot be held for later porinting by using the WHEN = 
DEFER parameter of the SSYSOUT statement (see part | of the table). 
Permanent files are printed automatically only if there is a $SYSOUT 
statement in the job step JCL and if this statement does not contain 
the WHEN = DEFER parameter (see part 3 of the table). In all other 
cases the permanent SYSOUT file should be printed in a separate job 
step by using the SWRITER statement (see parts 4 and 5 of the table) 


All the SYSOUT files written according to the rules in Table !!-! 
will nave an SSF record format or an edited SYSOUT format. SSF 
format includes an eight byte header in each record which enables 
form control information to be stored for each print line. As a 
result, WRITE ADVANCING options can be used when writing these 
files. This is also true for edited SYSOUT files. 


SYSOUT files can also be written in SARF format, if the SSF phrase 
is neither specified nor implied, or simply by including the WITH 
SARF phrase in the COBOL SELECT clause. However, the use of SARF 
files is not recommended because WRITE ADVANCING options cannot be 
used when printing these files. 
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Printing Directly 


When the printer is used directly, a S$ASSIGN statement must be 
present at execution time which links the internal-file-name used 
for the printer to the output device. For examples 


COBOL8 
SELECT PRINTOUT ASSIGN TO LISTING=PRINTER,. 


JCLs 
ASSIGN LISTING, DEVCLASS = PR, MEDIA = [200013 
DEFINE LISTING, MARGIN = 103 


The use of $DEFINE is optional. See the Job Control Language (JCL) 


Form Control 


A “vertical format tape" is a punched tape loop often used in 
printers to control vertical paper movement. Since Series 60 
printers do not use a vertical format tape, vertical paper movement 
is controlled by a software simulated vertical format unit (VFU). 
This VFU works in the same way as a standard |12-channel vertical 
format tape, with a limitation of 20 stop levels per form, shared 
among the !2 channels. 


A COBOL program can use the VFU to control vertical paper movement 
by specifying a mnemonic~name in the ADVANCING clause of the WRITE 
statement. This mnemonic-name must be specified in the CHANNEL-p IS 
mnemonic=name clause of the SPECIAL NAMES paragraph. CHANNEL-p 
indicates the channel of the VFU that is to control vertical paper 
movement for the current WRITE operation. 


VFUs are stored in a system file called SYS.URCINIT. The user can 
add new VFUs to this file or modify existing ones using the utility 
SURINIT. This process is described in the Upit Record Devices User 
Guide. Also stored in SYS.URCINIT are the form height, margin, head 
of form, full form | and printing density. All this information is 
associated with a form number. This form number can be specified in 
the MEDIA parameter in SASSIGN, SOUTVAL, S$SYSOUT and $WRITER in 
order to ensure that the correct VFU, form height etc. are used when 


the file is printed. See the Job Control Language (JCL) Reference 
“Manual for details of the MEDIA parameter in SASSIGN, SOUTVAL, 
SSYSOUT and SWRITER. 


The VFU, form height, margin, head of form, full form 1 and printing 
density stored in SYS.URCINIT can be overridden at execution time by 
parameters specified in a $DEFINE statement. See the Job Control 


“Language (JCL) Reference Manual for details. 


Note that all form control parameters specified in SYS.URCINIT and 
in $DEFINE for a given file are ignored at execution time if either 
the LINAGE clause or the Report Writer is used with that file. 
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The LINAGE Clause 


The LINAGE Clause can be used in an FD statement to describe the 
vertical format of a logical page as follows: 


~ number of lines of text on the page (LINAGE), 
~ line number at which the footing zone begins (FOOLING), 
~ number of lines in the top margin (TOP), 


- number of lines in the bottom margin (BOTTOM). 


A WRITE statement with an AT END-OF-PAGE phrase can then be used on 
such a file. When the page being printed reaches the footing zone, 
the imperative statement following the AT END-OF-PAGE phrase is 
obeyed. [his enables the program to print totals, summaries, banners 
etc. before the next page is started. At the end of each page the 
program can change the values of LINAGE, FOOTING, TOP and BOTTOM, 
Thus, the format of the paye can change dynamically during program 
execution. 


LINAGE-COUNTER is a field automatically defined by the compiler 
whenever the LINAGE clause is used in an FD statement. LINAGE- 
COUNTER contains the line number at which the printer is positioned 
within the current page. Therefore, the programmer need not keep a 
record of the current line number. The value of LINAGE-COUNTER can 
be referenced in the COBOL program (qualified if necessary by tne 
file-name) but cannot be modified. 


In the following paragraphs note that the END-OF-PAGE imperative is 
executed after the associated WRITE statement and the LINAGE-COUNTER 


m may thus point to the next logical nage (instead of to the current 


footing area) when the imperative is obeyed. 


When the compiler encounters an ADVANCING nn LINES it first 
calculates the sum of LINAGE-COUNTER and nn. Subsequent actions 
depend on the value of this sum, as follows: 


Situation | - lf the advance would be within the body of the 
current logical page, (i.e. the value is not 
greater than the establisned LINAGE value): 
ae The WRITE is done either before or after advancing 
nn lines, as specified in the vroyram. 

be LINAGE-COUNTER is increased by nn. 

Ce [If FOOTING was specified and the advance would 
be within the footing area (i.e. greater than 
Or equal to the established footing value), the 
END-OF-PAGE imperative is obeyed, if one was 
specified. 


| Situation 2 - If the advance would go beyond the body of the current 


logical page, (i.e. the value is greater than the 
established LINAGE clause): 
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a. A new value is set-up for LINES AT TOP, if the 
COBOL program has changed this value. 

b. The WRITE is done either before or after (as 
specified in the program) the device is 
positioned at the first line of the next 
logical page. 

c. LINAGE-COUNTER is set to l. 

d. New values are set-up for LINAGE, FOOTING and 
LINES AT BOTTOM, if the COBOL program has 
changed these values. 

e. [The END-OF-PAGE imperative is obeyed, if one 
was speci fied. 


Note that the CHANNEL=p IS mnemonic-name clause of the SPECIAL-NAMES 
paragraph camnot be associated with a file for which the LINAGE 
clause has been specified. Also, any form control information 
specified in the JCL statements for such files is ignored when the 
files are written. See Form Control, above. 


READING CARDS 


Cards can be read in the: following ways: 


~- from a standard SYSIN subfile containing a series of card 
images which have been spooled by the Input Reader? 


- directly from the card reader. 


Cards should normally be read from a SYSIN subfile. The use of the 
card reader directly, Slows down program execution and reduces the 
throughput of the card reader. 


Using Standard SYSIN Subfiles for Cards 


The standard SYSIN file (SYS.IN) is a system file. It is created at 
system generation and is located an a resident disk. Whenever an 
input enclosure is defined in a job, the Stream Reader creates a 
temporary subfile in the standard SYSIN file. This subfile is known 
as a standard SYSIN subfile. Cards images are then read into this 
subfile. However, the subfile exists only for the duration of the 
job. | 


For each input enclosure to be read by a COBOL program there must be 
a SELECT clause and an associated file description. There must also 
be a SASSIGN statement for each input enclosure to be read. [he 
SASSIGN statement specifies the internal-file-name contained in the 
COBOL SELECT clause and the input-enclosure-name used in the $INPUT 
statement. The -input-enclosure-name must be prefixed by an asterisk 
in the SASSIGN statement. The fcllowing example illustrates the 
necessary COBOL and JCLs 
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COBOL8 
SELECT CAkD ASSIGN TQ CARDFILE. 


JCLs: 
ASSIGN CARDFILE, *INDECK3 
SINPUT INDECK3 


SENDINPUT 


.If it is necessary to retain a card file on disk, this can be done 
uSing the utilities SLIBMAINT or $CREATE. The file may then be read 
in subsequent jobs as a normal sequential file or subfile. 


The uSer can choose to read cards from the standard SYSIN file or 
from a permanent sequential file or even directly from the card 
reader, simply by changing the JCL at execution time. The COBOL 
program remains unchanged. The suffixes ~CARD-READEK and -—SYSIN on 
the internal~file-names of SELECT clauses are for documentation 
only. They are ignored by the compiler. 


Reading Cards Directly 


To read cards directly from the card reader, there must be a SASSIGN 
statement in the execution JCL that links the internal-file-name 
used for the card reader to the input device. For examples 


COBOL 8 
SELECT CARD ASSIGN TO CARDFILE. 


JCLs 


ASSIGN CARDFILE, DEVCLASS = CD/R, MEDIA = INDECKS 
DEFINE CARDFILE, OFFSET? 


CONSOLE MESSAGE? 
* Hhemm MOUNT INDECK FOR ron 


where? 


hhemm is the current time in hours and minutes. 
ron is the run occurrence number. 


The use of $DEFINE is optional. See the Job Control Language (JCL) 
Reference Manual for details of the relevant SDEFINE parameters. 


The name specified in the MEDIA parameter is displayed on the 
Operator’s console at step initiation. This name should also be 
written on the card deck so that the operator can see clearly which 
card deck is to be used. The card deck must not be part of a job 
stream. It must be a separate deck and the last card must be a SEOS 
statement followed by at least one blank card. The card deck should 


be mounted in the card reader and the card reader should be switched 
to "ready", 
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PUNCHING CARDS 


Punched cards can be output in the following ways? 
- to a SYSOUT file$ 


. directly to the card punch. 


| ae Ee PS eee ee eee eer a ~ wrer : 
GAras smiduia normally be Scutput to a SYSOUT file. Direct use of the 


card punch slows down program execution and reduces the throughout 
of the card punch. In either case, serious consideration should be 
given to uSe Of a more compact and less fragile storage medium. 


Using SYSOUT Files for Cards 


Both standard SYSOUT and permanent SYSOUT files may be used to store 
data to be punched. They have the same characteristics as the 
printer SYSOUT files described in Table lI-I. 


The JCL and COBOL are the same as that shown in Table IIl-! excent 
that SSYSOUT is mandatory in all cases shown in part 1! of the table 
(otherwise the file will be printed instead of punched). 


The SSYSOUT statement used in parts |! and 3 of Table 11-1! should 
specify. a card punch device class. For example: 


SYSOUT PUNCHER, DEVCLASS = CD/P, MEDIA = PUNCHOUT 3 


The SWRITER statement, used to punch the files as shown in parts 4 
and 5 of Table !1I-!, must also specify a card-punch device-class. 
For example: 


WRITER C.PUNCHER, DEVCLASS = CD/P, MEDIA = PUNCHOUTS 


As shown in parts 1,3 or 4 of Table l!-!, SYSOUT files may be 
produced in edited SYSOUT format. That is, the files are edited as 
if they are going to be printed. When the files are actually punched 
by the Output Writer they are again edited into a format suitable 
for the card punch. So editing is performed twice. This will not be 
a problem. if a small number of cards are to be output. However, 
should large card decks be output it might be advisable to handle 
such SYSOUT files, which are to be punched but not printed, in one 
Of the following ways? 


- As shown in part 5.of Table 1I1-1. 
- As shown in parts 3 or 4 of Table I1-! provided that the 
permanent SYSOUT file has a record size of less than 600 hytes 


(it has to be at least 600 bytes for the. file to be written in 
edited SYSOUT format). 
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Note that standard SYSOUT subfiles are always written in edited 
SYSOUT format. It is therefore better to use permanent SYSOUT files 
for all card punch output. In fact, if a SYSOUT file is not to be 
printed it can be output as a normal permanent sequential file and 
Table 1l1l-1! can be simplified as shown in Table 11-2. 


Table .11-2 Methods of Producing SYSOUT Punch Files 


TYPE OF SYSOUT FILE CREATED 
(RECORD SIZE<600 BYTES) 


A permanent SYSOUT file is 
created. The file will not be 
in edited SYSOUT format because 
the record size is less than 
600 bytes. 

The file is punched by the 
Output Writer unless the 
WHEN=DEFER parameter is 
specified in $SYSQUT. 


A permanent SYSOUT file is 

created. The file will not be in 
edited SYSOUT format because the 
record size is less than 600 bytes. 
The file is not punched by the 
Output Writer. A SWRITER statement 
must be given to punch the file. 


Punching Cards Directly 


To punch cards directly on the card punch, there must be a SASSIGN 
statement in the execution JCL that links the internal-file-name 
used. for the card punch to the output device. For example? 


COBOL 8 
SELECT CARD ASSIGN TO CARDFILE. 


Das 
ASSIGN CARDFILE, DEVCLASS = CD/P, MEDIA = OUTDECK$ 
DEFINE CARDFILE,OFFSET$ 


CONSOLE MESSAGE 
* Hhemm MOUNT QUTDECK FOR ron 


where? 


hhemm is the current time in.hours and minutes. 
ron is the run occurrence number. 


Li=10 


The use of $DEFINE is optional. See the Job Control Language (JCL) 
Reference Manual for details of the relevant SDEFINE parameters. 


The name specified in the MEDIA parameter is displayed on the 
operator’s console at step initiation. A deck of blank cards should 
be mounted in the card punch and the card punch should be switched 
to "ready". 


ACCEPT, DISPLAY AND STOP LITERAL 


The COBOL ACCEPT and DISPLAY statements are used to input and output 
small volumes of data. The STOP literal statement is used to suspend 
execution of the program until the operator enters a value which 
enables the program to continue. The use of these statements is” 
described in the following paragraphs. 


The ACCEPT Statement 
The format of the ACCEPT statement to be dicussed is as follows: 
ACCEPT identifier (FROM mnemoniccname ] 


The standard options DATE, DAY, TIME and MESSAGE COUNT of the ACCEPT 
statement are not used for unit record I/O and will not be discussed 
here (see the COBOL Language Reference Manual). The options SYSIN, 
CONSOLE, TERMINAL and ALTERNATE CONSOLE may be used for unit record 
I/O but they are not part of the ANS standard. It is recommended 
that the standard option "FROM mnemonic-name" be used instead of 
SYSIN, CONSOLE, TERMINAL or ALTERNATE CONSOLE. 


Mnemonic~name is defined in the SPECIAL-NAMES paragraph of the 
ENVIRONMENT DIVISION as follows? 


SYSIN 

CONSOLE IS mnenonic—name 
ALTERNATE CONSOLE 

TERMINAL 


The above format of the ACCEPT statement and SPECIAL-NAMES paragraph 
can be used to input data from the operator’s console or from any 
sequential-file in SSF or SARF format. If the "FROM mnemonic~name" 
option is not used SYSIN is normally assumed to be the input device. 
However, CONSOLE is assumed if SOURCE-COMPUTER is LEVEL-62 and if 
the LEVEL = L62 parameter is used in the $COBOL statement. These 
defaults can be overridden by using the ACCEPT IS phrase in the 
DEFAULT SECTION (not part of the ANS standard). 


ae 


.If mnemonic—name spectfies SYSIN, a special SASSIGN statement must 
be used when the program is executed. This statement assigns the 
internal-file-name "HRD" to the sequential input file. The input 
file may be a standard SYSIN subfile or a user file. If a standard 
SYSIN subfile is being read the input enclosure name must be 
specified in the SASSIGN statement. For example: 


ASSIGN HRD, *INCARDS3 


If a user file is being read the file name must be specified in the 
SASSIGN statement. For example? 


ASSIGN HLURD, INFILE$ 


In this example INFILE is a catalogued sequential file. 


When data is being accepted with a mnemonic-name SYSIN, as many 
records as necessary are read to fill up the receiving item. The 
last such record is truncated if necessary and the truncated bytes 
are lost. However, if the first record in the SYSIN file for a given 
ACCEPT begins with an ampersand (&) and is followed by spaces, the 
"console input method" fs used (see below). That is, input continues 
until a record not ending with ampersand is read. This feature is 
useful when the number of cards to be read by a single ACCEPT 
statement is variable. If the ampersand is used, it is not necessary 
to pad the input with blank cards. 


If mnemonic-name specifies CONSOLE, no SASSIGN is needed. The 
following message will be displayed on the operator’s main console 
When the program is executed? 


nn/hhtmm ron progid ACCEPT WAITING 


wheres 
nn is a message number which the operator must 
enter when replying to this message. 


nhemm is the time at which the message was 
displayed. 


ron is the run-occurrence-number. 


progid is the program-id specified in the COBOL 
program. 


The operator must then enter the message number, one space and then 
up to 64 characters of input data. If more than 64 characters of 
input data are to be input, each group of 64 characters must be 
terminated with an ampersand (8&8). An "ACCEPT WAITING CONTINUED" 
message will then be displayed and the input can be continued. [his 
feature is useful on an interactive terminal. If it is used, the 
full 64 characters do not have to be entered on every line of input. 
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For example, the following pair of entries is equivalent to entering 
one line comprising XYZ, 61 blanks and a carriage return? 


SS 


Each ACCEPT dialog which occurs on the console will be echoed in the 
Job Occurrence Report prefixed by a report code "CBLI3". 


If mnemonic-name specifies ALTERNATE CONSOLE, data will be accepted 
from the alternate operator's console specified in the SCONSOLE 
statement (see the Job Control Language (JCL) Reference Manual). If 
no SCONSOLE statement is used data will be accepted from the console 
which submitted the program. If the submitting console is no longer 
logged, execution stops with the following message in the Job 
Occurrence Report: 


EXO3. UNEXPECTED RETURN CODE OPRTR 14 CNSLUNKN 


The format of the console dialog is the same as that on the main 
console. 


If mnemonic-name specifies TERMINAL the ACCEPT will behave as if 
mnemonic=-name specified ALTERNATE CONSOLE. However, in a future 
release of the COBOL compiler, it is intended to implement the 
following. If mnemonic-name specifies TERMINAL and the load module 
is interactively executed from a terminal under the Interactive 
Operation Facility, data will be accepted from the terminal being 
used. If the load module is not executed from a terminal but is 
executed as a batch job, the ACCEPT will behave as if mnemonic~name 
specifies ALTERNATE CONSOLE. 


Note that all data entered on a console or terminal will be stored 
in the user program as if the receiving item had a DISPLAY usage, 
even if the declared usage of the receiving fields is not DISPLAY. 
That is, no data conversion is performed. 


The DISPLAY Statement 


The format of the DISPLAY statement is as follows: 


DISPLAY identi fier-1 ,identi fier-2 . 
jliteral-| ,»literal-2 -oe| UPON mnemonic~name 


The options SYSOUT, CONSOLE, TERMINAL and ALTERNATE CONSOLE may be 
used for unit record I/0 but they are not part of the ANS standard. 
It is recommended that the standard option “FROM mnemonic—name" be 
used instead of SYSOUT, CONSOLE, TERMINAL or ALTERNATE CONSOLE. 
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Mnemonic-name can be defined in the SPECIAL~NAMES paragraph of the 
ENVIRONMENT DIVISION as follows3 


SYSOUT 
CONSOLE IS mnemonic~name 


ALTERNATE CONSOLE 
TERMINAL 


The above format of the DISPLAY statement and SPECIAL~NAMES 
paragraph can be used to output data to the operator’s console or to 
any sequential-output-file in SSF format. If the "UPON 
mnemonic~-name" option is not used SYSOUT is normally assumed to be 
the output device. However, CONSOLE is assumed if SOURCE-COMPUTER IS 
LEVEL-62 and if the LEVEL= L62 parameter is used in the $COBOL 
statement. These defaults can be overriden by using the DISPLAY IS 
phrase in the DEFAULT SECTION (not part of the ANS standard). 


If mnemonic-name specifies SYSOUT the output file may be a standard 
SYSOUT subfile or a permanent SYSOUT file. If the output file is a 
standard SYSOUT subfile no SASSIGN statement is needed when the 
program is executed . However, if the output file is a permanent 
_SYSOUT file a SASSIGN statement must be used to assign the 
internal-file-name “HU PR" to the SYSOUT file. For examples 


ASSIGN HUPR,OUTFILE, DEVCLASS=MS/M402 ,MEDIA=DISPOUT,FILESTAT=UNCAT S$ 


In this example OUTFILE is an uncatalogued sequential disk file. 


For a standard SYSOUT subfile, records are output as a sequence of 
120 column lines. For a permanent SYSOUT file the number of output 
records is variable and depends upon the maximum record length of 
the file. 


If mnemonic-name specifies CONSOLE no SASSIGN is needed. The 
following message will be displayed on the console when the vorogram 
is executed: 


hhtmm ron progid user-data... 


where? 
hh 3mm is the time at which the message was 
displayed. 
ron is the run~occurrence-number. 


progid is the program-id specified in the COBOL 
program. 


user-data 
is the data displayed by the user program. 


Nata will be displayed at 64 characters per line. Each display which 


is made on the console will be echoed in the Job Occurrence Renort 
orefixed by the report code "CBLII". 
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Data is displayed as in memory, without conversion. If the text to 
be displayed contains an unprintable character, and the DEBUG 
Parameter is included in tne SSLTEP statement when the program is 
executed, the hexadecimal value of this character is nrinted on the 
two lines below the erroneous character. 


If mnemonic~name specifies ALTERNATE CONSOLE, data will be displayed 
on the alternate operator's console specified in the SCONSOLE state- 
ment (see the Job Control Language (JCL) Reference Manual). If no 
SCONSOLE statement is used data will be displayed on tne console 
which submitted the program. If the supmittinag console is no longer 
loygyed the messaye is stored in the users mail box. The format of 
the console dialog is the same as that on the main console. 


If mnemonic~name specifies TERMINAL, the DISPLAY will behave as if 
mnemonic~name specified ALTERNAYE CONSOLE. However, in a future 
release of the COSOL compiler it is intended to implement the 
following. If mnemonic~-name specifies TERMINAL and the load module 
is interactively executed from a terminal tinder the Interactive 
Operation Facility, data will be displayed unon the terminal being 
used. If the load module is not executed from a terminal but is 
execiitea as nart of a batch job the DISPLAY will behave as if 
mnemonic-name specifies ALTERNATE CONSOLE. 


selection of the I/0 Device 


the variables governing the selection of the I/0 device to be used 
for ACCEPT and DISPLAY statements are summarized in Table 11-3. 


Table 11-3. Variables Governing the Selection of I/0 Devices 


Device specified by Is there a Type of Job submission 


mnemonic-name in SCONSOLE 
ACCEPT or DISPLAY statement in Batch ROF 
the job sten? 
I 0 BE 
rasa 
c 


CONSOLE 
Yes user- 3 
name 
oe 
TERMINAL 
user- user- usera 


fii 


Notes for Table |1-3: 
M = The main system console is used for I/0% 


User-name - The terminal identified by user-name in the 
SCONSOLE statement is used for I/03 


T - The terminal which submitted the program for execution 
is used for 1/03 


(1) - The main system console is used for I/0 if the 
submitting ROF terminal is no longer logged. 


Note that the use of TERMINAL is to be preferred to ALTERNATE 
CONSOLE for interactive jobs submitted via IOF. 
The STOP Literal Statement 


The format of the STOP literal statement is: 
STOP literal 


This statement is used to suspend execution of the COBOL program. 
When this occurs the following message is displayed on the main 
operator’s console?’ 
nn/hhsmm ron progid STOP literal 
where 3 
nn is a message number which the operator must 
enter when replying to this message. 


hhtmm is the time at which the message was 
displayed. 


ron is the run-occurrence number. 


progid is the program-id specified in the COBOL 
program 


In order to restart the program the operator must enter the message 
number, one space and carriage~return. 


Each STOP literal will be echoed in the Job Occurrence Report 
prefixed by the report code "CBLI7", 
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Note that the effect of the STOP literal statement is the same 

as a DISPLAY literal UPON mnemonic-name statement followed by 

an ACCEPT dummy-data-name FROM mnemonic~-name statement. Associat- 
ing mnemonic-name with ALTERNATE CONSOLE or TERMINAL enables the 
program to direct such a simulated STOP literal statement to the 
desired device, if it is not the main operator's console. 


aK 


USING CASSETTES 


files. See the YFAS User Guide or BFAS User Guide for details. Some 


In a COBOL program, cassette files are handled as UFAS or BFAS tape ; 
additional rules for cassette files are given below. 


ISL 


e 


Types of Cassette File 


The following types of cassette file can be handled by a COBOL 
programs 

- GCOS 64 standard cassette file’ 

~ GCOS 62 standard cassette file$ 

- Foreign cassette file. 


Cassette files can contain standard or nonstandard labels. Such 
cassettes may be processed as GCOS 64 or GCOS 62 standard cassette 
files or they may be processed as foreign cassette files. 


When a cassette with nonstandard labels is read as a standard 
cassette file the LABEL = NSTD or LABEL = NONE parameter must be 
used in the SASSIGN statement. Any labels on the cassette will be 
passed to the COBOL program as normal data records. An “AT END" 
condition will be generated when the first tape mark following the 
a first block on the cassette is read. Note that a cassette file may 
be opened in I-0 mode only if the LABEL = NATIVE parameter is used. 


A SASSIGN statement for each cassette file must be included in the 
SSTEP JCL. DEVCLASS = CS must be specified in each such statement. 
# Note that no repositioning of cassettes will be carried out by the 
| system during a restart. 


GCOS 64 Standard Cassette File 


A GCOS 64 standard cassette file is created under a GCOS 64 system. 
The FILEFORM = NSTD parameter must not be used in the $DEFINE 
statement for this type of file. No distinction is made between UFAS 
and BFAS cassette files. 


The cassette volume may be prepared by the S$VOLPREP utility (see 
Data Management Utilities Manual) before a GCOS 64 standard cassette 
file is written. $VOLPREP will write a volume label on the cassette. 
In this case, the file will also be written with labels. A GCOS 64 
standard cassette file may also be created without labels. This is 
the case if SVOLPREP is not used or if the LABEL = NONE parameter is 
used with SVOLPREP. 


GCOS 64 standard cassette files may reside on one or more volumes 
and may be written with native or compact labels. The type of label 
is specified in the LABEL parameter of the SASSIGN statement. When a 
GCOS 64 standard NATIVE labelled cassette file is written, the 
RECFORM, RECSIZE, BLKSIZE and NBSN (if required) parameters are 
| recorded in the label. Consequently the user does not have to 
specify these parameters when the file is being read (INPUT or I-0 
mode). These parameters will be ignored by the system if they are 
B Specified. However, compact labels do not contain the RECFORM, 
RECSIZE, BLKSIZE and NBSN parameters. Therefore, these parameter. 
must be supplied in the COBOL program FD (RECORD CONTAINS, BLOCK 
CONTAINS) or in a $DEFINE statement. Note that for compact standard 
labelled cassette files, RECFORM can only be F, FB or U. 


11-18 


GCOS 64 standard cassette files must have a minimum BLKSIZE of 2 
bytes. The maximum value for BLKSIZE when writing to a cassette 
labelled NATIVE or COMPACT is 800 bytes including block header and 
BSN (if any). 


we 


GCOS 62 Standard Cassette File 


A GCOS 62 standard cassette file is created under a GCOS 62 system 
using the sequential GCOS 62 access method. 


The RECFORM, RECSIZE, BLKSIZE and NBSN (if required) parameters must 
be specified for GCOS 62 standard cassette files in the COBOL 
program’s FD statement or in a SDEFINE statement. 


Foreign Cassette Files 


A foreign cassette file is a cassette file created under any system 
other than GCOS 64 or a cassette Tile created under GCOS 64 with the 
FILEFORM = NSTD parameter specified in the SNDEFINE statement. The 
only exception is a GCOS 62 standard cassette file (See above). 


A foreign cassette file has a data structure which cannot be 
accessed by the standard access methods of a GCOS 64 system. [his 
situation results from one or more of the following: 


- Nonstandard labels exist on the file3 

~ Tape marks are embedded between data blocks? 

- Block and record structure is nonstandard? 

~ Recording mode is nonstandard (pack, denack, datacode). 


When a foreign cassette file is read by a COBOL program, either a 
data block or a label block or a tape mark is handed to the vorogram 
each time a READ statement is encountered. Similarly, each time a 
WRITE statement is encountered, either a data block or a label block 
or a tape mark will be written from the COBOL program to the 
cassette. End of file will not be detected by the system on input 
and the AT END clause will not be obeyed. When a foreign cassette 
file is opened, the cassette is positioned at the beginning of the 
tape and it is the user’s responsibility to read or write labels, 
data and tape marks. 


After each read operation, the identifier specified in the DEPENDING 
ON option of the RECORD CONTAINS clause will contain the length of 
the block read (in bytes). A tape mark or a long gap will have a 
length of one byte. A tape mark will appear as FF (hexadecimal) in 
the first byte of the record area. A long gap will appear as OO 
(hexadecimal) in the first byte of the record area. 


Before each write operation the length of the block to be written 
must be specified (in bytes) in the identifier specified in the 
DEPENDING ON option. A tape mark must be coded as Fr (hexadecimal) 
in the first byte of the record area and must be given a length of 
one byte. 
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the maximum blocksize may be specified in the COBOL program in the 
BLOCK CONTAINS clause. All other parameters must be specified in the 
JCL. The BLKSIZE parameter must be speci fied in the COBOL program’s 
FD statement or in a SDEFINE statement. A foreign cassette may nave 
standard labels. If this is not the case, the LABEL = NONE parameter 
must be specified in the SASSIGN statement. A SDEFINE statement with 
the parameter FILEFORM = NSTD is mandatory for foreign cassette 
Tiles. The maximum value for BLKSIZE when writing to a cassette 


labelled NSTD or NONE is 256 bytes including block header and Bon 
(if any). 
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SECTION XII 
MISCELLANEOUS 


This section includes various topics which are not discussed at 
length in this manual and therefore do not warrant individual 
sections. 


SORTING AND MERGING 


The following paragraphs compare the use of the COBOL SORT and MERGE 
Statements with the SSORT and S$MERGE utilities. For further details 
concerning the use of $SORT and SMERGE see the Sort/Merge Manual. 


By using the OUTPUT command in $SORT a sequential file of disk 
addresses can be output. This file can later be read by a COBOL 
program and can be used to access the file that was input to $SORT. 
This is discussed in The ACTUAL KEY Phrase, Section IX. 


Comparison of COBOL SORT/MERGE and $SORT/SMERGE 


The choice between using the COBOL SORT/MERGE statements and 
executing $SORT/SMERGE as separate utilities is basicaly the choice 
between flexibility and performance. The following points amplify 
this. 


- Execution of S$SORT as a utility rather than as a COBOL 
Statement saves up to half the central processor time. 
However, the MERGE statement in COBOL executes faster than the 
corresponding S$MERGE utility. 


- The commands available with S$SORT/SMERGE are not as vowerful 
and flexible as COBOL statements. 


~ Using input and output procedures with the COBOL SORT and MERGE 
statements makes it possible to combine the first and last 
phases of the sort or merge with processing of the released or 
returned record (e.g., record selection, editing). 
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Therefore, $SQRT should be used whenever one of the following 
conditions is fulfilled: 


- The input and output files do not need to be processed 
immediately before or after the sort, OR, 


~ Processing of the input and output files can be done using the 
$SORT commands. 


If these conditions are not fulfilled, the processing of the innut 
and output files and the sorting of the file should be combined in a 
single program. File processing could, of course, be carried out in 
two separate COBOL programs separated by the SSORT utility. However, 
if these three operations are done in a single program, two file 
Passes are saved? the intermediary files between. the COBOL programs 
and $SORT do not have to be written or read. 


The above rules for using SORT and SSORT can be applied to MERGE and 
SMERGE except that processing of input files (INPUT PROCEDURE) is 
not possible when merging. 


JCL for COBOL SORT 


The following paragraphs describe the JCL for COBOL programs which 
use the SORT statement. The JCL for the COBOL MERGE statement is not 
discussed, as this only involves assigning the input and output 
files. 


In the SELECT clause for the sort file in the COBOL program, the 
internal- file-name H-SORT is usually used. Note that the 
ORGANIZATION, ACCESS MODE, RESERVE, FILE STATUS and RECORD KEY 
phrases cannot be used in the SELECT clause for a sort file. This 
file may be assigned in the JCL to the external file name HUSRTAKND 
using the SSORTWORK statement in the same job step. It is used 45 a 
work file by the sorting routines. The format of the SSORTWORK 
statement is as follows: 


WKTAPE[S] (NBDV=n, DEVCLASS=device-class) 


WKDISK(S] 


| extern t termonet 
(YSIZE = nnn 


ce 1 
SORTWORK eFILESTAT = \(UNCAT 
| scATALOG = o| 
RESIDENT 
+, DEVCLASS= device-class 


»MEDIA =( {aore \) ) 
volume-namel,...] 
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The SSORTWORK statement can be used to assign the sort file to 
tape(s) or disk(s) but not to both. 


If the sort is to be tape based the WKTAPE[S] keyword should be 
used. The number of devices to be assigned is Specified in the NBNDV 
= n parameter. A minimum of three devices and a maximum of six may 
be used. Note that a tape sort normally has a much longer elapsed 
execution time that a disk sort. However, for input files that have 
relatively few records out of sequence, a tane sort usually has an 
elapsed time close to that of a disk sort. Moreover, elapsed time 
reduces with any increase in the number of devices used, in the 
record-blocking factor, and in the recording density. 


If the sort is to be disk based the WKDISK[S] kayword should be 
uSed. The parameters which can be used with the WKDISK(S] keyword 
have the same significance as in the $ASSIGN and SALLOCATE 
statements. 


If the SSORTWORK parameter is not used, a temporary file of 10 
cylinders will be allocated on a resident volume, with the name 
HUSRTWKD. In a multiprogramming environment the use of a resident 

disk for the work file. can cause a considerable increase in arm 
movement. It is therefore preferable to preallocate a permanent file 
(of sufficient size, but on a single volume) on a disk other than 

that used for input and output files, and, if possible, on a disk 

not used concurrently by another job step. See the Sort/Merge I 
Manual, Appendix D, for more information about SSORTWORK. 


The size of the declared working set can be changed for a COBOL SORT 
by the keyword SORTMEMORY in the $STEP statement OPTIONS string. By 
increasing this value (which varies from 8K to 512K, with a default 
value. of 28K), elapsed time is reduced. The format of the OPTIONS 
parameter containing SORTMEMORY iss 


OPTIONS = %,..SORTMEMORY = nnn...?” 


Where nnn is the number of bytes in units of 1024. User ontions may 
accompany the SORTMEMORY option (see below, $STEP OPTIONS). If the 
options string is passed to the user vorogram, the SORTMEMORY option 
is passed to the program with any other options which are used. 


USER JCL STATUS 


The system sets a status value, which can be used by $JUMP in the 
event of an abnormal step termination (STATUS = 60000), or an 
Operator~requested end of step (STATUS=50000). The COBOL comoiler 
also sets the status value at the end of compilation, according to 
errors detected (see Sections II, The Compiler). 


The user may also set the status value in his COBOL program, 
transmitting it to the run-time package routine H.CBL_USET.:T via a 
field described in the WORKING-STORAGE SECTION with USAGE COMP-1. 
Since COMP-1 is a binary half-word the user status value has a limit 
of 32768. 
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The following example shows how the status value can be set in a 
COBOL programs 


WORKING=STORAGE SECTION. 
Ol STATE COMP-1. 


2 


PROCEDURE DIVISION. 


MOVE 64 TO STATE. 
CALL "H_CBL_USETST" USING STATE. 


e 


Execution of the job stream can then be modi fied by testing this 
status value: 


$JOB. ee 


STEP TESTOI, TEMP, 

DUMP=ALL3 

ENDSTEP $ 

JUMP LABI ,STATUS,EQ,643 

SEND “SVATUS DIFFERENT FROM 6473 
COMMEN: “STATUS DIFFERENT FROM 6473 
JUMP LAB2$ 

LABI?: SEND “STATUS = 6473 

COMMENT “STATUS = 6473 

LAB2? SEND “END OF TEST?% 

COMMENT “END OF TEST7$ 

SENDJOB$ 


The Job Occurrence Report will then show: 


PROCESS GROUP TERMINATED STATUS = 64 


SWITCHES 


Each COBOL program has access to 32 switches contained in the switch 
word assigned to the job in which the program is executed. 


Switches are declared in SPECIAL-NAMES, where they may he associated 
with mnemonic-~names as well as with condition-names for ON STATUS 
and OFF STATUS. 


A switch, once declared, may be turned ON or OFF by the SET 
statement, while its current status may be tested using the 
associated condition-name. 


COBOL programs can use switches to communicate with steps that 
follow in the job, as well as with the job itself. JCL can also trrn 
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switches on and off (SLET) and test them ($JUMP). The operator may 
set switches when starting a job via the Start Job (SJ) command, or 
while the job is in execution via the Modify Job (MJ) command. The 
initial setting of the switch word is all zeros (i.e. all switches 
off) at the beginning of the Job. If the job is initiated by 
operator action (RJ or SJ) or by another job ($RUN) the SW parameter 
permits the switch word to be set to some other initial value. 


The use of switches is shown in the following example: 


CONFIGURATION SECTION. 


e 


SPECI AL~NAMES. 
SWITCH-2 IS SW2 ON STATUS IS CND2. 


PROCEDURE DIVISION. 


e 


SET SW2 TO ON. 


IF CND2 DISPLAY “SWITCH=2 ON®". 


2 


CHECKPOINT, RESTART AND JOURNALIZATION 


The RERUN clause in the I-0-CONTROL paragraph allows the user to 
specify the frequency with which checkpoints are to be taken during 
program execution, in terms .of the number of records read or written 
in a specified file. This value its communicated to Data Management, 
which decrements the value by one for each record processed. When 
the value reaches zero, a special return code is sent to the COROL 
run-time package. : 


The COBOL run-time package then calls the system procedure to 
perform the checkpoint. Checkpoint data are placed in Backing Store. 
If the program aborts or there is a system crash, and the $STEP 
statement contains the REPEAT parameter, the operator may call for 
the program execution to be restarted. If he does so, the program 
is restored to its state at the last checkpoint and execution 
continues from there. The REPEAT parameter of the SJOB statement can 
be used to request the restart of an entire job. 


The user can also request checkpoints at other times (e.g. at the 


end of each tape or disk volume). See the SDEFINE statement in the 
Job Control Language Reference Manual. 
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At the price of introducing a non-standard element into his source 
program, the user may also directly call the system checkpoint 
procedure H_CK_UCHKPT, giving two parameters. For example: 


CALL "HUCK_UCHKPT" USING RMODE, INFO. 


RMODE is a user-defined USAGE COMP-2 field which indicates whether 

the current execution of the program is the first execution (RMODE = 

zero) or if the program has been restarted (RMODE not = zero). In 
the latter case, RMODE contains the JCL status value for the 

ae step temination, which also appears in the Job Occurrence 
eport. 


INFO is a user-defined group item consisting of 32 one-character 
elements. Where all elements are zero after a checkpoint, the 
checkpoint was correctly executed. If not, those elements with the 
value |! indicate what went wrong. 


Regardless of whether a checkpoint is taken as a result of the RERUN 
clause Or a programmed CALL, these values can be checked by coding? 


CALL "HUCK_UMODE" USING RMODE INFO. 
where RMODE and INFO have the same meaning as for H _CK_UCHKPT. This 
CALL also introduces a non~standard element into the user’s source 
program, which will require alteration to run on any system other 
than Level 64. 
Associated with checkpointing is "Jjournalization". This is a 
facility offered by Data Management which keeps a record of all file 
updates so that files can be reconstituted before a rerun is 
performed. 


Details of the use of the above facilities are given in the System 
Management Guide. 


ALPHABETS 


The following COBOL Language elements are discussed below? 
- In the SPECIAL-NAMES paragraph 
STANDARD=~1 


alphabet-name IS EBCDIC 


user~speci fied-alphabet 
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~ In the OBJECT-COMPUTER paragraph 


alphabet~name 
STANDARD- 1 


PROGRAM COLLATING SEQUENCE IS@ ASCII 
¢ C 
-HBCD 
B 


JIS | 
GBCD 


alphabet ic-name 
STANDARD- | 
NATIVE 


a 


~ In the FILE SECTION 


CODE-SET IS EBCDIC 


~ in the SORT and MERGE statements 


alphabet~name 
ST ANDARD~1 
NATIVE 
ASCII 
COLLATING SEQUENCE [S EBCDIC 


Note that ASCII,. EBCDIC, HBCD,. IBCD, JIS and GBCD are not part of 
the ANS standard for the OBJECT-COMPUTER paragraph, FILE SECTION or 
SORT and MERGE statements. They are standard for the SPECIAL NAMES 
paragraph only. See the COBOL Language Reference Manual for an 

pl Ate of STANDARD~1, NATIVE, ASCII, EBCDIC, HBCD, IBCD, JIS 
and D. 


The alphabet-name clause provides a means of relating a name to a 
specified character code set and/or collating sequence. When 
alphabet-name is referenced in the PROGRAM COLLATING sequence clause 
of the OBJECT~COMPUTER paragraph or the COLLATING SEQUENCE phrase of 
a SORT or MERGE statement, the alphabet-name clause specifies a 
collating sequence. When alphabet-name is referenced in a CQDE-SET 
clause in a file description entry, it specifies a character code 
set. 


The collating sequence of each alphabet is given in an appendix of 
the COBOL Language Reference Manual. This appendix shows the 
hexadecimal value, graphic symbol and symbolic character number for 
each character in the alphabet. 
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Whichever alphabet is specified, non-numeric data is always stored 
in memory in NATIVE (EBCDIC) form. If another alphabet is specified 
for comparison, collating or I/0, code conversion is carried out (by 
software). The circumstances under which code conversion is carried 
out are discussed below. 


PROGRAM COLLATING SEQUENCE 


PROGRAM COLLATING SEQUENCE in the OBJECT=-COMPUTER paragraph 
indicates the collating sequence to be used for non-numeric 
comparisons of the following types 


identifier-| IS (NOT) GREATER THAN} |identifier-2 
literal-]! IS (NOT) LESS THAN literal-2 
arithmetic~expression-1} {IS (NOT) > arithmetic~expression-2 
IS (NOT] < 
EXCEEDS 


The data to be compared is converted into the collating sequence 
indicated by PROGRAM COLLATING SEQUENCE before the comparison is 
made. PROGRAM COLLATING SEQUENCE has no effect on non-numeric 
comparisons of the following type: 


identi fier-| IS ENOT] EQUAL TO] lidenti fier-2 

literal-| IS (NOT) = literal-2 

arithmetic~expression~-1} }IS UNEQUAL TO arithmetic-expression-2 
EQUALS 


These comparisons are made without prior conversion. 


SORT AND MERGE COLLATING SEQUENCES 


COLLATING SEQUENCE in the SORT and MERGE statements has an effect 
similar to PROGRAM COLLATING SEQUENCE described above: the sort and 
merge keys will be converted according to the specified collating 
sequence before key comparison is made. This does not affect the 
record stored in the COBOL program. 


CODE- SET 


The CODE-SET clause enables data to be input from or output to files 
in code sets other than NATIVE (EBCDIC). This facility can be used 
only with sequential files and, if CODE-SET is equated to HBCD, for 
non-sequential H-2000 files. These files must contain display items 
only and all signs must be specified as separate, CODE-SET operates 
in the following way. 


- Immediately after a record is read, the record is converted 
from the code specified in CODE-SET into NATIVE code. 
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- Immediately before writing or rewriting a record, it is 
converted from NATIVE code into the code specified by the 
CODE-SET clause. 


- The CODE-SET clause is. ignored at execution time when code 
conversion is done by hardware (e.g., for cards or ANS magnetic 
tape). 

HIGH-VALUE LOW-VALUE 

The character with the highest ordinal position in the PROGRAM 
COLLATING SEQUENCE is used for the figurative constant HIGH-VALUE. 
The character with the lowest ordinal position in the PROGRAM 


COLLATING SEQUENCE is used for the figurative ;constant LOW-VALUE. 
These characters are shown in Table !2-1. . 


Table !2-1. High Values and Low Values 


COLLATING SEQUENCE |HIGH-VALUE | LOW-VALUE 


Notes for Table 12-18 


nO" is zero 


it 9" 


is nine 


ba is cent 


us tu is 


exclamation mark 


“ uis blank 


nayun is hexadecimal 00 


WaD56 "lt fs hexadecimal FF 


Values contained in two sets of quotation marks are 
*symbolic-character numbers”. That is, they specify a particular 
hexadecimal value in the relevant collating sequence. 
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SSTEP OPTIONS 


The OPTIONS parameter of the SSTEP statement enables a character 
string to be passed to a load module at the start of execution. 


The COBOL program accesses the character string from the OPTIONS 
parameter by including a LINKAGE SECTION in the main program of the 
load module. (The main program is the one named in the ENTRY 
parameter of SLINKER.) The way in which the COBOL program should be 
written is shown in the following example. 


ea 


WORKING-STORAGE SECTION. 


Ol IDI PIC 999, 

Of OPTI PIC X(20). 
Ot OPT2 PIC X(20). 
Ol OPT3 PIC X(20), 
Ol OPT4 PIC X(20). 
Ol OPT5 PIC X(20). 


LINKAGE SECTION, 
Ol LONG COMP=-2. 
Ol TEXT. 
O2 ELEM PIC X OCCURS | TO 256 DEPENDING ON LONG. 


PROCEDURE DIVISION USING LONG TEXT. 

DEBUT. 
MOVE SPACE TO OPT! OPT2 OPT3 OPT4 OPT5. 
UNSTRING TEXT DELIMITED BY “","® INTO OPTI 
QPT2 OPT3 OPT4 OPTS. 


Suppose that the character string "123456,ABCDEFG,HIJK" is to be 
passed to the COBOL program. The SSTEP statement would be: 


SSTEP...QOPTIONS =. 7123456,ABCDEFG,HIJK? 3 
The above program has been written so that it can receive up to 5 
twenty-character options with commas as delimiters. With the above 
SSTEP statement this program will receive the following values? 

OPT13 123456 

OPT2s ABCDEFG 

OPT3% HIJK 


If the SORTMEMORY option (used with the COBOL SORT statement) is 
present it is passed to the user program with the user options. 
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THE REPORT WRITER 


The following paragraphs briefly describe the function of the Report 
Writer and provide advice on the use of Report Writer facilities. 
For a definition of the Report Writer statements see the COBOL 


Language Reference Manual. See also The Report Writer in Section VI 
of the current manual. 


a a ae 


The Report Writer enables the programmer to produce reports hy 
specifying the physical appearance of a report rather than by 
specifying the detailed procedures necessary to produce that report. 


A hierarchy of levels is used in specifying the logical organization 
Of a report. Each report is divided into report groups, which in 
turn are divided into sequences of items. Such a hierarchical] 
structure enables explicit reference to other levels in the 
hierarchy. A report group contains one or more items to be output on 
one or more lines. 


General Concepts 


LINE~COUNTER is a special register that is generated for each report 
description (RD) entry in the REPORT SECTION of the DATA DIVISION. 
The implied description is that of an unsigned integer that must be 
capable of holding a range of values from O through 999999. The 
usage is COMP-2. The value in LINE-COUNTER is maintained by the 
Report Writer, and is used to determine the vertical positioning of 
a report. The value in LINE-COUNTER may be accessed by PROCEDURE 
DIVISION statements* however, se a the Report Writer may change the 
value of LINE-COUNTER,. 


The reserved word PAGE-COUNTER is a name for a special register that 
is generated for each report descrintion entry in the REPORT SECTION 
of the DATA DIVISION. The implicit description is that of an 
unsigned integer that must be capable of representing a range of 
Values from !1 to 999999. The usage is DISPLAY. The value in 
PAGE-COUNTER is maintained by the Report Writer and is used to 
number the pages of a report. The value in PAGE-COUNTER may be 
altered by PROCEDURE DIVISION statements. 


In the REPORT SECTION, neither a sum counter nor the special 
registers LINE-COUNTER and PAGE-COUNTER can be used as a subscript. 


A report file is a sequential file and is subject to the following 
restrictions. An OPEN statement, specifying either the OUTPUT or 
EXTEND phrase, must have been executed prior to the execution of the 
INITIATE statement, and a CLOSE, without the REEL or UNIT phrase, 
must be executed for this file subsequent to the execution of the 


TERMINATE statement. No other input/output statement may be executed 
for this file. 
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Note that the CHANNEL~p IS mnemonic-name clause of the SPECIAL-NAMES 
paragraph cannot be associated with files written by the Report 
Writer. Also, any form control information specified in JCL 
statements for such files is ignored when the files are written. See 
Form Control, Section XI. 


The DATA DIVISION 


A REPORT clause is required in the FD entry to list the names of the 
reports to be produced. 


In the REPORT SECTION the description of each report must begin with 
a report description entry (RD entry) and be followed by the entries 
that describe the report groups within the report. 


In addition to naming the report, the RD entry defines the format of 
each page.of the report by specifying the vertical boundaries of the 
region within each type of report group may be printed. The RD 
entry also Specifies the control data items. When the report is 
produced, changes in the values of the control data items cause the 
detail information of the report to he processed in groups called 
control groups. 


Each report named in the REPORTS clause of an FD entry in the FILE 
SECTION must be the subject of an RD entry in the REPORT SECTION, 
Furthermore, each report in the REPORT SECTION must be named in one 
and only one FD entry. 


The report groups that will comprise the report are described 
following the RD entry. The description of each report group begins 
with a report group description entry: thet is, an entrv that has a 
Ol level number and a TYPE clause. Subordinate to the report group 
description entry, there may appear group and elementary entries 
that further describe the characteristics of the report group. 


The PROCEDURE DIVISION 

The INITIATE statement causes the Report Writer to begin the 
processing of a report. 

The GENERATE statement directs the Report Writer to produce a report 
in accordance with the report description that was specified in the 
REPORT SECTION of the DATA DIVISION. 


The SUPPRESS statement causes the Report Writer to inhibit the 
presentation of a report group. 
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The USE statement specifies PROCEDURE DIVISION statements that are 
executed just before a report group named in the REPORT SECTION of 
the DATA DIVISION is produced. 


The TERMINATE statement causes the Report Writer to complete the 
processing of the specified report. 


REPORT Clause in FD 


A given report-name must appear in one and only one file descrintion 
entry. The SELECT clause of a report file can only specify an SSF 
record format. If WITH SSF is not specified, it will be assumed. If 
neither VLR nor FLR is specified, WITH VLR is assumed. The RECORD 
CONTAINS clause in the FD entry of a report file is used to sneci fy 
its record length. The default record length is 132 characters. For 
example: 


ENVIRONMENT DIVISION. 
SELECT FILE-! ASSIGN Fl! WITH SSF FLR. 
SELECT FILE-2 ASSIGN F2. 


DATA DIVISION. 

FD FILE~! LABEL RECORD IS STANDARD 
RECORD CONTAINS 121 CHARACTERS 
REPORT IS REPORT-A. 

FD FILE-2 LABEL RECORD IS STANDARD 
REPORT IS REPORT-B. 


a 


In the above example FILE-2 is implicitly an SSF VLR file. The 
records for REPORT-A and REPORT-B will be written on FILE-! and 
FILE~2 respectively. REPORT-A and REPORT-B cannot describe any line 
longer than 12! and 132 characters respectively. 


Summing Techniques 


The examples below show two coding techniques for the REPORT SECTION 
of the DATA DIVISION. Example 2 uses more complex statements than 
example | and will result in more efficient (faster) object code. 
The report description entry is as follows: 


RD..e«eCONTROLS ARE YEAR MONTH WEEK DAYE 
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Example 13 


01 TYPE CONTROL FOOTING YEAR, 
05 SUM COST. 

0] TYPE CONTROL FOOTING MONTH. 
05 SUM COST. 

01 TYPE CONTROL FOOTING WEEK, 
05 SUM COST. 

01 TYPE CONTROL FOOTING DAYE. 
05 SUM COST. 


Example 2:3 


Ol TYPE CONTROL FOOTING YEAR. 
05 SUM A. 

01 TYPE CONTROL FOOTING MONTH. 
05 A SUM B. 

Ol TYPE CONTROL FOOTING WEEK, 
05 B SUM C. 

0} TYPE CONTROL FOOTING DAYE. 
O05 C SUM COST. 


In example 2, one addition will be made for each day, one more for 
each week, and one for each month. In example |, four additions will 
| be made for each day. 


The Use of SUM 


Unless each identifier is the name of a SUM counter in a TYPE 
CONTROL FOOTING report group at an equal or lower position in the 
control hierarchy, the identifier must be defined in the FILE, 
WORK ING-STORAGE or LINKAGE SECTION. A SUM counter is algebraically 


incremented .by the value of a SUM operand under the following 
circumstances. 


- If the SUM operand is not a SUM counter and it is not 
associated with an UPON phraSe, then the SUM counter is 
incremented just before the presentation of any TYPE DETAIL 
report group. 


- If the SUM operand is not a SUM counter and it appears on the 
SUM clause with an UPON phrase, then the SUM counter is 
incremented just before the presentation of any TYPE DETAIL 
report group specified in the UPON phrase. 


~- If the SUM operand is a SUM counter, it is incremented just 


before presentation of the TYPE CF report group which contains 
this SUM counter. 
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In the following example, SUBTOTAL is incremented only when DETAIL~] 
is generated. 


FILE SECTION. 


05 NO-PURCHASES PIC 99. 


REPORT SECTION. 
RD. ee 
Ol DETAIL~1! TYPE DETAIL. | 
05. COLUMN 30 PIC 99 SOURCE NO-PURCHASES. 


Ol DETAIL-2 TYPE DETAIL. 


Ol DAYE TYPE CONTROL FOOTING LINE PLUS 2. 


e 


05 SUBTOTAL COLUMN 30 PIC 999 
SUM NO=PURCHASES UPON DETAIL@1. 


Ol MONTH TYPE CONTROL FOOTING 
LINE PLUS 2 NEXT GROUP NEXT PAGE. 


SUM Routines 


A SUM routine is generated by the Report Writer for each report. The 
SUM operands which are included for summing in this routine are 


those which are not SUM counters and which are associated with no 
UPON phraSe. 


A SUM routine is generated by tne Report Writer for a DETAIL resort 
group whose name is specified in at least one UPON phrase. [he SUM 
operands included for summing in this routine are those which are 
associated with an UPON phrase which references this DETAIL renort 
group e 


A SUM routine is generated by the Report Writer for a CF report 
group which contains a SUM counter which is referenced in a SUM 
clause. 


When a GENERATE detail-name statement is executed, the SUM routines 
for the report and the detail report group are executed in their 
logical sequence. When a GENERATE report-name statement is executed 
and the report contains one detail report group, the SUM routines 
are executed for the renort and then for the DETAIL report group. 
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The following examples show the SUM routines which are generated by 
the Report Writer. In example |! only one SUM routine is generated 
which is associated with the report. Example 2 illustrates how 
operands are selected when the UPON datail-name option is specified. 


Example 1: 


The following statements are in the REPORT SECTION. 
Ol DETAIL~! TYPE DE... 


Ol DETAIL-2 TYPE DE... 


Ol DETAIL-3 TYPE DE.. 


O! TYPE CF... 
05 TOTAL-1 22 eSUM As B, Ci. 


O1 TYPE CF... 


One SUM routine is generated for the report as follows: 


ADD A TO TOTAL~1. 
ADD B TO TOTAL-1. 
ADD C TO TOTAL=1!. 
ADD D TO TOTAL=2. 


Example 28 


In this example the same coding is used as in example 1, with 
one exception: the UPON detail-name option is used for 
TOTAL-1, as follows. 


Ol TYPE CF... 
O05 TOTAL-1...SUM A, B, C UPON DETAIL-2. 


The following SUM routines would be generated instead of those 
resulting from the calculations in example |. 


SUM routine for DETAIL-23 
ADD A TO TOTAL=-1. 
ADD B TO TOTAL=1!. 
ADD C TO TOTAL=-1. 

SUM routine for the reports 


AND B TO TOTAL=2. 
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Page breaks 


The Report Writer page break procedure onerates independently of the 
procedures that are executed after any control breaks (except that a 
page break will occur as the result of a NEXT PAGE option). 
Therefore, the programmer should be aware of the following: 


~ A control heading is not printed after a nage heading excent 
for first generation. If it is neccessary to have the 
equivalent of a control heading at the top of each page, the 
information to be printed must be included as part of the vage 
heading. However, as only one nage heading may be specified for 
each report, the inclusion of control heading information in 
page headings should be done with care. This “control heading" 
will be the same for each page and may he printed at 
inopportune times. 


- GROUP INDICATE items are printed after page and control breaks. 
Figure 12-1! contains a GROUP INDICATE clause and shows the 
run-time output. 


REPORT SECTION 


O] DETAIL-LINE TYPE IS DETAIL LINE NUMBER IS PLUS 1. 
O5 COLUMN IS 2 GROUP INDICATE PIC A(9) 
SOURCE IS MONTHNAME OF RECORD-AREA (MONTH). 


(execution output) 


FEBRUARY 15 AOO... 
AO2... 


PURCHASES AND COST... 


FEBRUARY 21] AO3 66-6 
AO3B ce 


Figure 12-1. Sample GROUP INDICATE Clause 


WITH CODE Clause 


When more than one report is being written on a file and these 
reports are to be selectively written, a unique two-character code 
known as the record identification code must be assigned to each of 
these reports. This is done using the WITH CODE clause. Note that if 
a report is written using the WITH CODE clause, this renort should 
not be written in “edited SYSOQUI" format (see Section XI) and should 
not be output directly to the printer. 
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When the WITH CODE clause is used, the code will be written as the 
first two characters of each record in the file. When the programmer 
wishes to print a report from tnis file, he must use a SWRITER 


(JCL) Reference Manual. 


The following example shows how to create and print a report with a 
code. A Report Writer program contains the following statements. 


ENVIRONMENT DIVISION. 


DATA DIVISION. 

FILE SECTION. 

FD RPT-OUT-FILE RECORD CONTAINS 122 CHARACTERS 
LABEL RECORD STANDARD REPORTS ARE REP-FILE-! REP-FILE-2. 


REPORT SECTION. 
RD REP-FILE=1 CODE "AA"... 


RD REP-FILE-2 CODE “BB"..., 


The RPT-OUT-FILE must be written on a tape or disk. A SWRITER 
statement could then be used to print only the report with code 
WAA", as follows. 


WRITER (report-file-description), REPORT=AA, NDALAFORM=SSF 3% 


Control Footings and Page Format 


Depending on the number and length of control footings (as well as 
the page depth of the report), it is possible that some of the 
specified control footings will not be printed on the same page if a 
control break occurs for a high level control. When a page-break 
condition is detected before all required control footings have been 
printed, the Report Writer will print the page footing (if 
specified), skip to the next page, print the page heading (if 
specified), and then continue to print control footings. 


If it is necessary to print all the control footings on the same 

page the page must be formatted in the RD-Level entry for the renvort 

| (by setting the LAST DETAIL integer to a sufficiently low line 
number) to allow for the necessary space. 
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Note also the following example. 


RD EXPENSE-REPORT CONTROLS ARE LAST, MONTH, DAYE. 


Ol TYPE CONTROL FOOTING DAYE LINE PLUS | 
NEXT GROUP NEXT PAGE. 


O01 TYPE CONTROL FOOTING MONTH LINE PLUS 1 
NEXT GROUP NEXT PAGE. 


oT] 


* 


(execution output) 


EXPENSE REPORT 


MARCH BI eaccceseee 35-40 
(output for CF DAYE) 
MARCH TOTAL 2... 000002220.90 

(output for CF MONTH) 


In the above example, the NEXT GROUP NEXT PAGE clause for the 
control footing DAYE is not activated. | 


Floating First Detail Rule 


The first presentation of a body group (CH, CF or DE) that contains 
a relative line as its first line, will have its relative line 
spacing suppressed and the first line will be printed on the line 
indicated either by FIRST DETAIL or INTEGER PLUS 1! of a NEXT GROUP 
clause from the preceding page. For example? 


~ If the body group shown below was the last to be printed on a 
page 


O1 TYPE CF NEXT GROUP NEXT PAGE. 
then the following body group 
Ol TYPE DE LINE PLUS 5, 


would be printed on value of FIRST DETAIL (Cin PAGE clause). 
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= TF the following body group was the last one to be printed on a 
page 


O} TYPE CF NEXT GROUP LINE 12. 


and after it was printed the value of LINE-COUNTER was 40, then 
the body group 


Ol TYPE DETAIL LINE PLUS 5. 


would be printed on line 12 + 1 (i.e., line 13). 


Report Writer Routines 


At the end of the analysis of a report description entry (RD), the 
Report Writer routines are generated, according to the contents of 
the RD. Each routine refers to the contents of the 
compiler~generated internal line number of its own respective k). 


TABLE HANDLING 
Subscripts 


If a subscript is a constant, tne location of the subscrinpted data 
item within the table is resolved at compilation time. 


If a subscript is held in a data item the location is resolved at 
-execution time. The value contained in a data item used as a 
subscript is an integer that represents an occurrence number within 
a table. Every time a subscripted data item is referred to Ina 
program the compiler generates several instructions to calculate the 
correct displacement. Therefore, subscripts should be used with care 
m to avoid an inefficient object program. See Section VIII for 

m details. However, the compiler does optimize the calculation of 
displacements. If a subscripted data item is referred to more than 
once in the same statement, the displacement is calculated once only 
and is used each time the data item is referred to in that 
statement. 


The SET Statement 


a The SET statement is used to assign values to index data items and 
index~names. 


The SET statement can assign to an index-name the value of a 


literal, an identifier or an index-name from another table element. 
When this occurs, the index-name is set to an actual displacement 


12-20 


from the start of the table element that corresponds with an 
occurrence number tndicated by the second operand in the SET 
statement. The compiler performs all the required calculations. If 
the SET statement is used to assign an index-name to another 
index-name for the same table element, the compiler does not have to 
calculate the actual displacement value contained in the second 
operand, 


However, when an index data item is set to another index data item 
or to an index-name, or when an index-name is sat to an index data 
item, the cofpiler cannot change any existing displacement value 
because an index data item is not part of any table. Therefore, no 
conversion of values can be done. If the programmer forgets this, 


programming errors can occur. For example, stippose that a table has 
been defined as? 


Ol A. 
Q2 B OCCURS 2 INDEXED BY Al, A5. 
O03 C OCCURS 2 INDEXED BY A2, AG. 
04 D OCCURS 3 INDEXED BY A3, A4. 
O05 E PIC X20). 
O05 F PIC 9(5). 


Figure !2-2 shows how the table is laid out in main memorv. Sunpose 
it is necessary to reference D (2, 2, 3). The following stens would 
be incorrect’ 


SET A3 TO 2. 


SET INDX-DATA-ITM TO A3. INCORRECT EXAMPLE 
SET A2, Al LO INDX-DATA-ITM. correct version 
SET A3 UP BY 1. shown below 


MOVE D CAI, A2, A3) TO WORKAREA. 


The value contained in A3 following the first SET statement is 25, 
which represents the starting point (in bytes) of the second 
occurrence of |D. When the second SET statement is oheyed, the value 
25 is stored in INDX-DATA-ITM, and the third SET statement stores 
the value 25 in A2 and Al. The fourth SET statement augments the 
value in A3 to 50. The calculation of the address of D CAI, A2, AS) 
would then be as follows? 


(address of D (1, I, 1))425+25+50 = (address of D (I, 1. 1))+190 


where 1D (1, I, 1!) represents the first occurrence. of D. This is not 
the address of D (2, 2, 3). 


The following steps will determine the correct address? 


SET A3 TO 2. 
SET A2, Al TO A&. 
SET A3 UP BY 1. 


In this case the first SET statement stores the value 25 in A3. .. 
Since the compiler can calculate the lengths of B and C, the second 
SET statement stores the value 75 in A2 and the value 150 in Al. 
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The third SET statement stores the value 50 in A3. [The correct 


- address calculation will bes 


(address of f (1, 1, 12)+150+75+50 = (address of D (1, 1, 1))4275 


The rules for the SET statement are shown in Figure 12-2. 


Byte No. 


oT 12-2. Sample Table Layout in Memory 


Identifier 
or Literal 


set to Serenades, ol Mies without Set to valtie 
correcponding conversion corresponding 
oO occurrence to occurrence 
number (note A) number 


Identifier Set to occur- 
rence number Not applicable Not annlicable 


represented by 
index-name 


Note As If the index-names refer to the same table element 
tne move is made without conversion. 


Figure 12-3. Rules for the SET Statement 
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The SEARCH Statement 


Only one level of a table (a table element) can be referenced in one 
SEARCH statement. Note that SEARCH statements cannot be nested! an 
imperative statement must follow the WHEN condition and the SEARCH 
statement is itself conditional. 


The SEARCH statement has two formats. 


Format | SEARCH statements carry out a serial Search of a table 
element. If the programmer knows that the "found" condition will 
occur after some intermediate point in the table element, to speed 
up execution the SET statement can be used to set the index-names at 
that point and search only part of the table element. If the table 
element is large and must be searched from the first occurrence io 
the last, the use of Format 2 (SEARCH ALL) is more efficient than 
Format 1, as it uses a binary search technique? however the table 
must then be ordered. 


In Format 1! the VARYING phrase allows the programmer to? 


~ Vary an index-name other than the index-name stated for this 
table element. So, with two SEARCH statements each using a 
different index-name, reference can be made to more than one 
value in the same table element for comparisons etc. 


~ Vary an index-name from another tabl’e element. In this Case, 
the first index-name specified for this table element is used 
for the search and the index-name specified in the VARYING 
phrase iS incremented at the same time. Thus it is possible to 
step through two table elements at once. 


In Format !, the WHEN condition can be any relation condition and 
can be multiple. If multiple WHEN conditions are specified, the 
implied logical connective is OR. That is, if any one of the WHEN 
conditions is satisfied, the imperative statement following the WHEN 
condition is executed. If it is necessary that all conditions of the 
SEARCH statement be satisfied, a compound WHEN condition with an AND 
logical connective must be used, 


In Format 2 (SEARCH ALL) the table must be ordered on the key(s) 
named in the OCCURS clause. Any key can be named in the WHEN 
condition, but all preceding names in the KEY phrase must also be 
tested. The test must be an “equal to" (=) condition and the KEY 
data-name must either be the subject or the object of the condition, 
or the name of a conditional variable with which the tested 
condition-name is associated. The WHEN condition can also be a 
compound condition, consisting of one of the simple conditions 
listed above, with AND as the only logical connective. The key and 
its object of comparison must be compatible. 
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To write a series of statements that will search the three 
dimensional table discussed under "The SET Statement" above, the 
programmer could write the following: 


77 COMPARANDI PIC X(5). | 
77> ~=COMPARAND2 PIC 9(5). 
Ol A. 
05 B OCCURS 2. INDEXED BY Al AS. 
10 C OCCURS 2 INDEXED BY A2 A6, 
15 D OCCURS 3. INDEXED BY A3 A4. 
20 E PIC X(5). 
20 F PIC 9(5). 


e 


(set-up values for COMPARAND!I and COMPARAND2) 


PERFORM SEARCH-TESTI THRU SEARCH~EXIT! 
VARYING Al FROM 1 BY 1! UNTIL Al GREATER THAN 2 
AFTER A2 FROM 1 BY 1 UNTIL A2 GREATER THAN 2. 
ENTRY=NOENTRY1I. 
GO TO ERROR-RECOVERY1!. 


SEARCH-TEST!. 

SET A3 TO 1. 

SEARCH 1D WHEN E (Al, A2, A3) 
AND F CAI, A2, A323) 
SET A5 TO Al 
SET A6 TO A2 
SET A2 TO 3 
SET Al TO 3 
ALTER ENTRY-NOENTRY! TO PROCEED TO ENTRY-PROCESSINGI, 


COMPARANDI 
COMPARAND2 


ott 


SEARCH-EXITI. 
EXIT 


ERROR=RECOVERY1. 


 ENTRY-PROCESSINGI. 
MOVE E (A5, A6, A3) TO OUT-AREAI. 
MOVE F (A5. AG, A3) TO OUT-AREAD. 


The PERFORM statement varies the indexes (Al and A2) associated with 
table elements B and C. The SEARCH statement varies A3, which is 
associated with table element D. 


The values of Al and A2 that satisfy the WHEN conditions of the 

pa SEARCH statement are stored in AS and A6. Al and A2 are then set to 
fa 3 via the SET statement, so that when returning from the SEARCH 

Ma statement control will fall through the PERFORM statement to the GO 
me 10 statement. 
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Later references to the desired occurrence of table elements E and F 
use the index-names A5 and A6é in which the correct valutle was stored. 


For example, suppose that the following table was defined? 


Ol TABLEA. 

O05 ENIRY-IN-TABLEE OCCURS 90 TIMES 
ASCENDING KEY1, KEY2 
DESCENDING KEY3 
INDEXED BY INDEX-A. 

10 PART-1 PIC 99. 

10 KEY-1 PIC 9(5). 
10 PART=2 PIC 9(6). 
10 KEY-2 PIC 9(4), 
10 PART-3 PIC 9(33). 
10 KEY-3 PIC 9(5). 


A search of the entire table could be made with the followings 


SEARCH ALL ENTRY~IN-TABLEE AT END GO TO NOFIND 
WHEN KEY-1 (INDEX-A) = VALUE-1 
AND KEY-2 (INDEX~-A) = VALUE-2 
AND KEY-3 CINDEX~A) = VALUE-3 
MOVE PART! CINDEX-A) TO OUTPUT-AREA,. 


These instructions will result in a search on the above table TABLEA 
which contains 90 elements of 55 bytes and 3 keys. The primary and 
secondary keys (KEY-! and KEY-2) are in ascending order but the 
least significant key (KEY-3) is in descending order. If an entry is 
found in which the three keys are equal to the given values 
(VALUE-1, VALUE-2, VALUE-3) PART-1 of that entry will be moved to 
OUTPUT=AREA. If no matching key is found in any of the entries in 
TABLEA, the NOFIND routine is entered. 


If there is a match between a table entry and the given values, the 
index (INDEX-A) is set to a value indicating the relative position 
within the table of the matching entry. If a match is not found, the 
final value of the index is unpredictable. 


Note that if KEY entries within the table do not contain valid 
values, the results of the binary search will be unpredictable. 


Building Tables 


When reading in data to build an internal table the following points 
Should be born in mind. 


~- Ensure that the data does not exceed the space allocated for 
the table. 
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~ If the data must be in sequence, check the sequence in the 
program. 


- [f the data contains a subscript determining its position in 
the table, check that the subscript does not exceed the bounds 
of the table. 


When testing for the end of a table, use a dats item containing the 
item count, rather than use a literal. Then, if the table must be 
expanded, only one value need be changed, instead of all references 
to the literal (in addition to changing the number of occurrences in 
the OCCURS clause). Both changes can be effected using the REPLACE 
statement of the CONTROL DIVISION. The REPLACE statement is not nart 
of ANS standard COBOL. 


INTERMEDIATE RESULTS 


The compiler breaks down arithmetic statements into a succession of 
simpler operations and reserves locations in memory to contain the 
results of these Operations. The handling of these “intermediate 
results" is discussed in the following paragraphs. 


For an arithmetic statement containing only one pair of operands, no 
intermediate result is generated. Intermediate results may be 
generated in the following cases. 


- In an ADD or SUBTRACT statement which contains several onerands 
immediately following the verb. 


- In a COMPUTE statement which specifies a series of aritnmetic 
operations. 


- In arithmetic expressions which are contained in IF or PERFORM 
statements. 


In such cases, the compiler treats the statement as a series of 
operations. For example, the following statement: 


COMPUTE Y=A+B*C-DZ/E + F ¥*G 


is replaced by: 


**E BY G GIVING irl 
MULTIPLY B BY C GIVING {r2 
DIVIDE E INTO D GIVING ir3 
ADD A TO ir2 GIVING ir4 
SUBTRACT ir3 FROM ir4 GIVING ird 
ADD ird TO irl GIVING Y 


Where irl through ir5 are successive intermediate results. 
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In the following discussion “decimal floating-point format" is 
referred to. In this format 18 most significant digits are retained 
(31 if the LEVEL = L64 parameter is included in the COBOL 
statement). 


Length of Intermediate Result Fields 


Based upon the length of the operands or intermediate results to he 
operated upon, the compiler allocates intermediate result fields of 
a particular lenyth. The algorithm for doing this is exnlained 
below. The following abbreviations are tised in this explanation. 


ip ~ the number of integer places to be stored in the 
intermediate result. 


id - the number of decimal places to be stored in the 
intermediate result. 
dmax - either? the maximum number of decimal places defined for any 
operand, 


or, the number of decimal places needed for the final 
result field (plus | if rounding is required), 
whichever is larger in a particular statement. 


op | ~ the first operand in a generated arithmetic statement. 
Op2 - the second onerand in a generated arithmetic statement. 
dl,d2 - the number of decimal places specified for opl and on2. 


iy - the intermediate result produced by an arithmetic operation. 
irl, ir2 etc. represent successive intermediate results. 


The compiler calculates the number of integer places in an ir in the 
following way. fhe maximum value that an ir can contain is 
determined by performing the statement in which the ir occurs? 


If an operand in the statement is a data-name, the vale ised 
for this operand is the largest value that can be stored in the 
data item. For example, PIC 9V99 would result in a valtte 9.99. 


- If an operand is a literal the actual value of the literal is 
used. 


- If an operand is an intermediate result, the value determined 
for the intermediate result in a previous calculation is tised. 


~ If the operation is divisions 
ae If op2 is a data-name, the value used for op2 is the 


smallest non-zero value that can be stored in the data item. 
For example, PIC 9V99 would result in a value of O.O}. 
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b. If op2 is an intermediate result, the smallest non-zero 
value that can be stored in the intermediate result field is 
used. 


c. If a further divide, multiply or exponentiation is to be 
performed for the same COBOL statement, decimal 
floating-point format will be used. 


~ If the operation is exponentiation and op2 has a literal value 
of 2 or 3 normal multiplication will be performed. Otherwise 
decimal floating-point format will be used. 


When the maximum value of an ir is determined in the above manner, 
ip is set equal to the number of integers in this value. 


The compiler calculates the number of decimal places in an ir in the 
following way? 


Operation Decimal Places 

t.Oy = dl ar d2, whichever is greater. 

* di + de 

/ di - d2 or dmax, whichever is greater. 

wk dmax if op2 is non integral or a data-name} 


d * op2 if op2 is an integral literal. 


If the number of digits in ir is greater than 31, decimal 
floating-point format will be used. 


Table 12-2 indicates the length allocated to ir based upon the 
Values calculated for inp and dp. 


Table 12-2. Length of Intermediate Result Fields 


“eS oan beane pec necan da Teeth and dp decimal 
places are ailocated for ir. 


ip integer places and 31 - ip 
decimal nlaces are allocated for ir. 


decimal floating-point format is 
used. 
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Fixed Binary Data Items 


If an operation involving fixed binary operands requires an 
intermediate result greater than the equivalent of 10 decimal 
digits, the operants are converted into packed decimal before 
performing the operation. If the result field is fixed binary, the 
result will then be converted from packed decimal into binarv. 


If an intermediate result will not be greater than the equivalent of 
9 decimal digits, the operation will be performed most efficiently 
on fixed binary data fields. 


COBOL Run-Time Package 


If a decimal multiplication requires an intermediate result greater 
than 31 decimal digits, a COBOL run-time package procedure is used 

to perform the calculation. The most significant 31 decimal digits 

of the result of this multiplication are kept. 


A COBOL run-time package procedure will be used to perform division 
if the number of decimal places of the dividend plus the number of 
decimal nlaces of the quotient plus the number of integer places of 
the quotient is greater than 3l. 


If an arithmetic operation requires an intermediate result greater 
than 3! decimal digits, decimal floating-point format will be used © 
for the operation. The number of digits in this intermediate result 
is given by the TEMP IS clause of the CONTROL DIVISION (the CONTROL 
DIVISION is not part of the ANS standard) the default value is 3! if 
LEVEL = L64 is specified in the SCOBOL statement, otherwise the 
default value is 18. 


The ON SIZE ERROR Phrase 


Apart from division by zero, the ON SIZE ERROR nhrase anplies only 
to final results and not to intermediate results, 1i.e., it apnlies 
only when the final results are stored in the receiving data items. 


COMMUNICATIONS PROGRAMS 


Communications programming is not discussed in this manual. This 


subject is covered in the Communications Processing Facility Manual, 
which includes a discussion of the following Message Control System 
verbs. 
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- SEND 
RECEIVE 
ACCEPT 
DISABLE 
- ENABLE 


INSPECT AND EXAMINE 


The INSPECT statement has been added to the COBOL language standard 
to replace the EXAMINE statement. As EXAMINE has been removed from 
the ANS standard, it is advisable to use INSPECT rather than EXAMINE 
in all new programs. 


The main advantages of INSPECT are as follows: 


- Groups of characters can he tallied and/or renlaced by a single 
INSPECT statement (the EXAMINE statement can only tally and/or 
replace a single character). 


~ Several different groups of characters can be tallied and/or 
replaced in a single INSPECT statement. 


~ INSPECT can tally and/or replace groups of characters before or 
after a specified group of characters. 


Examples of EXAMINE statements and an equivalent INSPECT statemant 
are shown in Table 12-3. 


Table 12-3. Comparison of INSPECT and EXAMINE 


INSPECT or EXAMINE statement 


Refore 


EXAMINE X TALLYING UNTIL FIRST Aj {21BA2AR 
EXAMINE X TALLYING ALL I. 21BA2AB 
EXAMINE X REPLACING FIRST B BY Cc. 
EXAMINE X REPLACING LEADING 2 BY3. 


INSPECT X TALLYING UPTOA 
FOR CHARACTERS 
BEFORE INITIAL A, 
ONES FOR ALL I, 21 BAZAR] 31 CA2AB 
REPLACING FIRST B RY C, 
LEADING 2 BY 3. 


f Further examples of the use of the INSPECT statement are given in 
the COBOL Language Reference Manual. 
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APPENDIX A 
EXAMPLE COBOL PROGRAM 


A-O! 


cO-V¥ 


COBOL V~50.2 X86.1 LISTING BOURGAIN BOURGAIN 13322348 MAR 314 1978 PAGE | 1 


RARE RKEHAAARKARA AEE AE HARADA REREKEAEKHEAEHAKEE AEA KRERKAKEKRAAAEHALREEER AAARAREKAHSEHEKAKREAHRAHHABAEHHAREHADAHAHEHASRHARKREHENE EOE A 
PTO TEPER LIEVICITECE TELIA TALELICTIL LICE CSIR CATES ECL OCICS SSICLESCCTOCC“ECCTICCTISCLCLCCCTICOSTICCLSCOSLILICLL TST Raita ae) 


wane GCOS 164 aene 
wane C 0 8 Ot etre 
wees VERSION: 50 OATEDs MAR 10+ 1978 sane 
AHORA ARENA ERERERERE EAA AREA EAEEE AE He TERA HEA EHEAAANEHERKEEE EKER AKER REKEa AKER ERE AD ARERAAAEAHAEEAKERKEE OOD D 


RRRERAAARAEEERKERAAHAARERAAAEEARAEARAAAAARKAKKRACEA ARE REEKRAKRAAAAREEHEKERERHA AEA KEKARRAKAKHEAHRERARERKREARHEARAHAAEREHRERR HARA ROR D 


PROGRAM: FIND-DAY 

USER: BOURGAIN 

PROJECT: BOURGAIN 

DATE: 03/31/78 

TIMES 132322348 

COMPILER VERSION: L64 COBOL V-S0.2 

USER OPTIONS: COMFILE LIB#1 LEVEL@=L64 OCLXREF XREF EXPLIST 


ACTIVE OPTIONS: OBJs NDEBUGs WARNs OBSERVs NPAPs OCLXREF ¢ XREFe LISTs EXPLISTs CKSEQs CARDID, CASEQs DIAGING 
NCODAPNDs NOPTs DDESUGMDs PSEGMAXB4CI6( BYTES) « DSEGMAX#40 96( BYTES). 


COMPILATION LEVEL: L64 


COMPILER INPUT: 

ALTER FILE 

RSTR CHLALTER) 

C0201/23/78 CT=10335224 MD#01/23/78 MY 9335224 SLEDAT MN200 NMZALTER-DAYS 
SOURCE FILE 

INO-DAY IN RSTR CH_INLIB1) . 

CD201/23/78 CT#10335224 MD203/027/78 MT 813316312 SLEDAT MN™11 NMSFIND~DAY 
COPY FILE (COPIED TEXT ON LENES 38 THROUGH 49) 

DAYS IN RSTR CHLINL 181) . . 

C0201/23/78 CT#10:35224 MO201/23/78 MT#1(235324 SL2DAT MN#00 NMSDAYS 


FINO-DAY 


coBoL 


man ~> 


V-50.2 
ALTER LISTING 


X86.1 LIUETING BOURGAIN BOURGAIN 


COMPILE; 


R: R FIND-DAY 


e 
e 


JDATA/S/ DIVISIONS EL / 


/01 


DITWEEK~-TAB/ so / SUNDAY/C COMMENT 


1 


13322348 MAR 3ie 


# 1 :1~-44 TEXT FOLLOWS THE °A%s °C%s *1" CR *Q* COMMAND. ON THE LINE. TEXT ITS IGNORED. 


A.8 
A.9 
A.10 


Os | 


COPY. DAYS 
REPLACING == PIC X(8) 28 BY == PIC X(10) =, 


1978 


PAGE 


2 


vo-v¥ 


FIND-DAY 
ILN 


ee AKHDANKHAANUNHN eA 


—>ose 6 © 8 @ 8 6 8 6 


#ASOSO@OnNOU SEWN | 


Aanann 
e 
_ 
N 


~32 


coBot 


XUN 


COON AUS WN wd 


es | 
eae 
ee3 
004 
eed 


225 
eel 
028 
ae? 


V~50.2 %86.1 LISTING SBOURGAIN BOURGAIN 13322348 MAR 314 1978 PAGE 
SOURCE LISTING 
TEXT 2-1 0-~ ne = 20 -- —- = = 3 - = - = b0----== = $5 0 = = — 60 -- —-- -- = 70. occ e Sm 


* 
* 
4 


* 


* 


IDENTIFICATION DIVISION. 
THIS ROUTINEs STARTING FROM A DATEs GIVES <~ 
THE DAY IN THE WEEK CORRESPONDING TO THE 


PROGRAM-ID. FINO- LAY. 


ENVIRONMENT OIVIS ION. 
CONFIGURATION SECTION. 


SOURCE-C OMPUTER. 
OBJECT—C OMPUTER. 


DATA DIVISION, 


DATE 


LEVEL-64 
LEVEL-6 4, 


WORKING-~STORAGE S (CTION, 
TEMPORARIES 


01 
01 


01 


01 


01 


01 


X PICTURE 9141.0. 


Y PICTURE 9(5). 


PREC-O0~-TAB. 


TOTAL 


NUMBER OF DAYS PRECEDING THE MONTH 


CSHOWN BY ITS ORDINAL NUMBER IN THE LIST) 
IN THE YEAR 


0. 
31. 
59. 
90. 

120. 
151. 
181. 
212. 
243. 
273. 
304. 
334. 
PREC~D-TAB. 


PRECEDING-DAYS PIC 999 OCCURS 12. 


O02 FILLER PI-( 999 VALUE 
O2 FILLER PIC 999 VALUE 
Q2 FILLER PIC 999 VALUE 
Q2 FILLER PI.( 999 VALUE 
O2 FILLER PIC 999 VALUE 
O2 FILLER PIC 999 VALUE 
O2 FILLER PIC 999 VALUE 
O2 FILLER PLE 999 VALUE 
O2 FILLER PIC 999 VALUE 
O2 FILLER PIC 999 VALUE 
O2 FILLER PIC 999 VALUE 
O2 FILLER PI:¢ 999 VALUE 
PREC-D~-TAB-~ RE: 1 RE DEF INES 
02 

TABLE 

WEEK 
COPY DAYS 


OTHER-UNUSE 0. 
O2-FILLER PIC X. 
O2 FILLER COMP-1 SYNC. 
OITWEEK-TAS. 


02 


FILLER PIs( X€8) 


FILLER 
FILLER 
FILLER 
FILLER 


1 


PIC x¢€1Q) 
PI¢ x€10) 
Pre x¢10) 
Pic x€10) 


2 


GIVING THE NAME OF THE DAYS IN THE 


REPLACING =s PIC X(8) == BY == PIC XC€10) 38, 


VALUE “LUNDI "e 


11 FIRST WORD OF TEXT REPLACED (OR DELETED). 
2 1-33 LAST WORD OF TEXT REPLACED (OR fELETED). 


VALUE “MARDI "e 
VALUE “MERCREDI”. 
VALUE “JEUDI ew 
VALUE “VENDREOI®. 


cO-¥ 


FINO-DAY 
ILN 


$.50 
$.51 
$.52 
$.53 
$.54 
$.55 
$.56 
$257 
$.58 
$.59 
$261 
$264 
$.65 
$.66 
$.67 
$.68 
$69 
$.70 
$.71 
$.72 
$.73 
$274 
$.75 


COBOL 
XUN 


ectl 
~46 
47 
48 
49 
50 
$1 
$2 
53 
54 
55 
56 
5? 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 


V=- §0 Pr’ 


x86.1 LISTING BOURGAIN BOURGAIN 13322348 MAR 314 1978 PAGE 


SOURCE LISTING 
TEXT 9 2=10-9----—- 20----—--- 3 0+ —-- - - -~ 40- = =~ ~ 5 0 -- === = -- 60-------- (OFnsageases* 


” 


* 


* 


» 


01 


01 


O02 FILLER PIC X€10) VALUE “DIMANCHE’, 
OITWEEK-TAB-R 0 REDEFINES DITWEEK~TAB. 
O02 DAY-IN-THE-WEEK PIC X(€10) OCCURS 7 TIMES. 
AREA FOR DATE SPLITTING INTO YEARs MONTHs 


AND DAY 
SPLIT“DATE. 
O02 CENTURY PIC 99. 
O2 SHORT-DAT E. 
03 FILLER PIC 99. 
03 MONTH PIC 99. 


03 DAY-OF-MOITH PIC 99, . 
O3 .DAY-OF—MO'ATH-X REDEFINES DAY~OF~-MONTH PIC XX. 


O1 YEAR REDEFINES SPLIT-DATE PIC 9(4). 


01 


LINKAGE SECTION. 


ORDINAL NUMBER OF THE DAY. TAKEN INTO 
CONSIDERATION WITHIN THE DAYS OF THE 
. CHRISTIAN ERA 
DAYS~IN-THE~ERA PIC 9(10). 


DATE FOR WHICH THE DAY OF WEEK. IS LOOKED 
FORs UNDER THE FORM YYYYMMOD OR YYMMDDBS 
CWHERE B MEANS BLANK 
FULL~DATE PIC X¢8). 
RETURNED ORDINAL NUMBER OF THE DAY IN THE 
WEEK C1 IS MONDAYs 2 TUESDAY ..- ) 
OAY-OF—THE~WE EK PIC 9. 
RETURNED DAY IN THE WEEK IYSELF 
DAY~ITSELF PI:¢ X€10). 


90-V 


FIND-DAY 
IUN 


$.78 
8.79 
$.81 
$.83 
$.84 
$.86 
$.87 
$.88 
$.89 
$.90 
$.91 
$.92 
$293 
$294 
§.95 
$296 
$297 
$.98 
$.99 
$.100 
$.101 
$.102 
$.103 
$.104 
$.105 
$2106 
$.107 
$2108 
$.109 
$2110 
$2111 
S.112 
§.113 
$2114 


COBOL 


XLN 


V-50.2 X86.1 LISTING BOURGAIN BOURGAIN 13322248 MAR 314 1978 
SOURCE LISTING 
TEXT 2=10-— 20 = - - 3 chet aey e 40--———-- --50-——- “ee 60---~---- 70—. eeeceee<= 
J 
PROCEDURE DIVISIOR USING FULL—DATE DAY-OF-THE-WEEK DAY~-ITSELF. 
a 
BEGIN. 
MOVE FULL~DATE TO SPLIT-DATE. 
IF DAY-OF-MONTH-X = SPACE 
MOVE SPLIT— LATE TO SHORT~DATE 
HOVE 19 TO .CENTURY. 
* LET US COMPUTE THE NUMBER OF DAYS SPENT 
* SINCE THE BEGINNING OF THE CHRISTIAN ERA 
COMPUTE DAYS~ IN-THE-ERA #® 
DAY~ OF ~MONTH 
+ PRECEDING-DAYS (MONTH) 
+ CYEAR ~ 1) * 365. 
* LET US ADO 1 FOR EACH LEAP-YEARs INCLUDING 
* THE YEAR OF THE PROCESSED DATE IF THE 
* MONTH IS LATER THAN FEBRUARY 
IF MONTH < 3 COMPUTE YEAR # YEAR — 1. 
DIVIDE YEAR 81 4 GIVING X. 
ADD X TO DAYS-IN-THE-ERA. 
DIVIDE YEAR BY 100 GIVING X. 
SUBTRACT X FRCM DAYS~IN-THE-ERA.W 
DIVIOE YEAR 8 1000 GIVING X. 
AOD X TO DAYS~IN- THE-ERA. 
* NOW THE REMAINDER OF THE DIVISION BY 7? OF 
* THE DAYS-IN-THE-ERAs AUGMENTED OF THE 
a PROPER CONSTANTs IS THE ORDINAL NUMBER OF 
* THE DAY IN THE WEEK 
DIVIDE DAYS~I. P-THE-ERA BY 7 GIVING X REMAINDER Y. 
IF Y> 4 
SUBTRACT 4 .JROM Y 
ELSE 


ADO 3 TO Y. 
MOVE Y TO DAY~OF-THE-WEEK. 
MOVE DAY~IN-THEE-WEEK CY) TO DAY-ITSELF. 
EXIT PROGRAM. 


PAGE 
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LO-vV 


FIND-DAY 
ILN 


BONO U SU & 


1 2-199 A 1 BYTE TYPE 2 FILLER WAS ALLO(ATED TO ALIGN THIS SYNCHRONIZED ITEM (SEE REFERENCE MANUAL). 


41. 


42 
43 
44 
45 
46 
47 
48 
49 
50 


COBOL 


XUN 


e 
ab od wd 
N= OVDOMN OU EWN @ 


A) ad od ot od we od ot 
OVOanouwnsew 


wn 
Wd Wh = 


td Ud Ut a ld sf Nf ft 
MWEWN HOD OND 


ls Ww 
NO 


eel 


e@6 
o 6 
win 


aah 
Weed 
tee5 
Pe) 
ae? 
228 
009 
2219 
oell 
~46 


V~50.2 x86.1 LISTING BOURGAIN BOURGAIN 13322348 MAR 314 1978 
EXPANDED SOURCE LISTING 
TEXT ?-10------—-- Ome me mn 3 nn m= he mw = = § 0 - = - = 60 = = === TO 6 ca ceccat< 

IDENTIFICATION DIVISION, 

* THIS ROUTINEs STARTING FROM A DATEs GIVES <- 
* THE DAY IN THE WEEK CORRESPONDING TO THE 

* DATE 

PROGRAM-I1D., FIND~ CLAY. 

a 

ENVIRONMENT DIVIS 10N. 

CONFIGURATION SEC TION, 

SOURCE-COMPUTER. LEVEL~64 

OBJECT—CCMPUTER. LEVEL-64. 
* 

DATA OIVISION, <- 
a 

WORKING~-STORAGE SECTION. 

* TEMPORARIES 

OF xX PICTURE 9(10). 

O1 Y PICTURE 9(5). 
* TOTAL NUMBER OF DAYS PRECEDING THE MONTH 
a CSHOWN BY ITS ORDINAL NUMBER IN THE LIST) 
* IN THE YEAR 

01 PREC~D-TAB. 

O2 FILLER P1( 999 VALUE 0. 
O2 FILLER PI.0 999 VALUE 31. 


O02 FILLER 
O2 FILLER 
O02 FILLER 
O02 FILLER 
Q2 FILLER 
O02 FILLER 
O02 FILLER 
O2 FILLER 
O2 FILLER 
O02 FILLER 


01 PREC~D-TAB-RE € REDEF INES 


O02 PRECEOI 


PIC 999 VALUE 59. 
PIMC 999 VALUE 90. 
PIC 999 VALUE 120. 
PI( 999 VALUE 151, 
PI8t 999 VALUE 181. 
PIC. 999 VALUE 212. 
PI:€ 999 VALUE 243. 
Pll 999 VALUE 273. 
P1( 999 VALUE 304. 
P1C 999 VALUE 334, 
PREC-D-TAB. 
NG~DAYS PIC 999 OCCURS 12. 


>» AGI. -s 


01 


01 


TABLE GIVING THE NAME OF THE DAYS IN THE 


WEEK 
OTHER-UNUSE D. 
O2 FILLER PIC X. 
O2 FILLER COMP—1 SYNC. 


1 


DITWEEK-TAB. 
O2 FILLER 

VALUE 
O02 FILLER PIC X€10) VALUE 
O2 FILLER PI¢ XC10) VALUE 
O2 FILLER PIC X€10). VALUE 
O2 FILLER PIC X€10) VALUE 
O02 FILLER PIC xX¢€10) VALUE 
O02 FILLER PI X¢€10) VALUE 


PIC x(10) <- 
“LUNDI =". 
“MARDI. 
“MERCREDI". 
aH tears 
“VENDREDI". 
“SAMEDI 
“DIMANCHE™. 


DITWEEK-TAB-RED REDEFINES DITWEEK~TAB. 


PAGE 
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80-V¥ 


FINO=DAY 
ILN 


$1 
52 
53 
54 
55 
56 
ae 
58 
59 
60 
61 
62 
63 
64 
63 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 


COBOL 
XLN 


47 
48 
49 
$0 
$1 
52 
cr 
54 
$5 
56 
57 
58 
59 
60 
61 
62 


V-50.2 


x86,1 LISTING BOURGAIN BOURGAIN 


13322348 MAR 314 1978 PAGE 


EXPANDED SOURCE LISTING 


TEXT 


63° 


64 
65 


66. 


67 
68 
69 
70 
71 
72 


7=10-----—-= 20--—— == 3 0----- === 40 -- = - - = 5 0 - == - -- 60------— 70— 


t 


a 


* 


eccvcnees™ 


O02 OAY-IN-THE-WEEK PIC X¢€10) OCCURS 7 TIMES. 
AREA FOR DATE SPLITTING INTO YEAR» MONTHS 
AND DAY 
O01 SPLIT-DATE. 
O2 CENTURY PIC 99. 
O2 SHORT-DATE. 
O3 FILLER PIC 99. 
Ud trweniee PTC 99. 
O03 OAY-OF-MOIMTH PIC 99. 
O03 DAY-OF-MOATH-X REDEFINES DAY~OF-MONTH PIC XX. 
O01 YEAR REDEFINES SPLIT~DATE PIC 94). 


01 


LINKAGE 


ORDINAL NUMBER OF THE DAY TAKEN INTO 
CONSIDERATION WITHIN THE DAYS OF THE 
CHRISTIAN ERA 


DAYS-IN-THE~E fA PIC 9(10). 


SECTION. 
DATE FOR WHICH THE DAY OF WEEK IS LOOKED 
FORs UNDER THE FORM YYYYMMDD OR YYMMODEDB 
CWHERE B MEANS BLANK 


O1 FULL=DATE PIC X(8). 


RETURNED ORDINAL NUMBER OF THE DAY IN THE 
WEEK (1 IS MONDAYs 2 TUESDAY see ) 


01 OAY-OF~THE-WE EK PIC 9. 


RETURNED DAY IN THE WEEK ITSELF 


O01 DAY“ITSELF PIC X€10). 


60~-V 


COBOL V-$0.2 X86 1 LISTING BOURGAIN BOURGAIN 13322248 MAR 31,4 1978 


FIND=DAY EXPANDED SOURCE LISTING 

1UN XLN TEXT 291 Q-——--—-=~ 20 = —- = 3 0 = (0 a 5 0 = 60 = 2 0 cc SH 
77 73 / 

78 74 PROCEDURE DIVISION USING FULL~DATE DAY-OF-THE-WEEK DAY-ITSELF. 
79 75 * 

80 76 BEGIN. ; 

81 77 MOVE FULL-DAT£E TO SPLIT-DATE. 

82 78 If DAY-OF-MONTH=X = SPACE 

83 29 MOVE SPLIT- {ATE TO SHORT-DATE 

1 

#* 1 5-148 THIS RECEIVING ITEM MAY BE TRUNCATED ON RIGHT 


xe 


Ld 


1 5-264 SENDING AND. RECEIVING FIELDS OVERLAP 
1 5-184 THIS IS A GROUP MOVE AND OPERANDS DO NOT HAVE THE SAME SIZE, 


84 80 MOVE 19 TO CENTURY... 

85 81 * — &€T US COMPUTE THE NUMBER OF DAYS SPENT 
86 82 * SINCE THE BEGINNING OF THE CHRISTIAN ERA 
8? 83 COMPUTE DAYS- IN-THE-ERA # 

88 84 'DAY~ OF -MONTH 

89 85 + PRECEDING-DAYS (MONTH) 

90 86 + {YEAR ~ 1). * 365. . 

91 87 * LET US ADD 1. FOR EACH LEAP-YEARs INCLUDING 
92 8&8 * THE YEAR OF THE PROCESSED DATE IF THE 
93 89 * MONTH IS LATER THAN FEBRUARY 

94 90 IF MONTH <. 3 COMPUTE YEAR. = VEAR — 1, 

ae 91 OIVIDE VEAR BY 4 GIVING X. 

96 92 ABD X TO BAYS~IN-THE—ERA, 

97 93 DIVIDE YEAR.B'’ 100 GIVING X. 

98 94 SUBTRACT X EFRCH DAYS~IN-THE~ERA. 

99 95 SIVIDE YEAR BY 1000 GIVING xX. 
100 96 ADD X TO BAYS ~IN-THE-ERA. 

101 97 * NOW THE REMAINDER OF THE DIVISION BY 7? OF 
102 98 e THE DAYS~IN-THE-ERAs AUGMENTED OF THE , 
103 99 * “PROPER CONSTANTs. IS THE ORDINAL NUMBER OF 
104 100 * THE DAY IN THE WEEK 

105 101 DIVIDE DAYS~LI-THE-ERA BY 7 GIVING X REMAINDER Y. 
106 102 If ¥> 4 
107 103 SUBTRACT 4 FROM Y 

108 104 ELSE 

109 105 Add 3 TO Y. 

110 106 MOVE ¥Y TO DAY~OF-THE“WEEK. 


1 
1 5-156 POSSIBLE LEFT TRUNCATION 


111 10? MOVE DAY“I1N~T EWEEK’ (CY) TO DAY“ITSELF. 
112 108 THE-END. 
113 109 EXIT PROGRAM, 


PAGE 


O[t-vV 


coBoL 


FINO-DAY 


LN 


7? 
01 
01 
01 


01 
02 


01 
01 


01 
02 


01 
02 
02 
03 
03 
03 
0% 
01 
01 
01 


01 


NAME 


TALLY 


PREC~D~ TAB 


PRE C-D~-TAB~RE D 
PRECEDING-DAYS 


OTHER~UNUSED 
DITWEEK~TAB 


DITWEEK~TAB—-RED 
DAY~ IN~ THE-WE EK 


SPLIT-DATE 
CENTURY 
SHORT~DATE 
MONTHR 
DAY~OF-MONTH 
DAY~OF-AONTH-X 
YEAR 
DAYS~IN-THE-ERA 
FULL=DATE 
DAY-OF-THE-WE EK 
DAY-ITSELF 


BEGIN 
THE~END 


V- 50.2 


¥B6.!1 


CROSS“REFERENCE LISTING CO ECLARATION ORDER) 


PN 


sODRESS 


1300010 
11300064 
1300070 
1300078 


11300078 
1300078 


113 000A0 
113 000 A4 


13 000A4 
12000 a4 


13000F0 
1::000F0 
12000 F2 
12000F4 
1s000F6 
1:000F6 
*13000FO 
1200058 

00000 

00000 


00000 


USAGE 


OISP 
OISP 
O1SP 
GROUP 


GROUP 
oISP 


GROUP 
GROUP 


GROUP 
o1spPp 


GROUP 
OISsP 
GROUP 
bDISP 
O1SP 
DISP 
O1SP 
DI SP 
D1SP 
o1sP 
b1SP 


PARA-NK 
PARA-NA 


LEITING BOURGAIN BOURGAIN 


PIC-STRING 


9¢5) 
9¢10) 
9(5) 
X(36) 


X(36) 
9(3). 


X¢4) 
x¢70) 


x(70) 
x€10) | 


x¢8) 
9¢2) 
X(6) 
9(2) 
9(2) 
x2) 


94) 
9(10) 


‘x¢€8) 


9¢1) 


x(10) 


DEF. 


16 
1? 
21 


34 
35 


38 
41 


50 
51 


54 
35 
56 
58 
59 
60 
61 
65 
71 
74 
76 


80 
112 


13322348 MAR Ste 1978 
REF, LINES 
NOREF 
95 96 97 98 99 100 105 
105 106 107 109 110 111 
NOREF 


NOREF 
89 


NOREF 
NOREF 


NORE F 
171 


81 83 

84 

83 

89 94 

88 

82 

90 94+ 95 97 99 
87 96 98 100 105 
78 81 


78 110 


PAGE 
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ITV 


FIND<DAY 
_ on 


coBOL V- 50.2 
NAME 


BEGIN 
CENTURY (SPLIT~DATE) 


_BDAYSIN-THE“WEEK (DI TWEEK-TAG—RED) 


DAY~ITSELF 
DAY~OF-MONTH (SPLIT~DATE) 


DAY-OF-NONTH=X (SPLIT-—OATE) 


DAY~OF— THE-WE EK 
DAYS~IN“THE-ERA 
DITWEEK-TAB 
OITWEEK—-TAB—-RED 
FULL-DATE 

MONTHR CSPLIT=~ DATE) 
OTHER~UNUSED 
PREC~B- TAB 
PREC—0-TAB—-RE D 


-PRECEDING-DAYS (PREC—0~ TAB—RE D) 


SHORT-OATE (SPLIT-DATE) 
SPLIT—“D ATE 

TALLY 

THE-END 

x 

Y 

YEAR 


ADDRESS 


113000F0O 
-13000A4 

00000 
13000 F6 
130006 

00000 
13000F8 


- 15300044 


1200044 

00000 
13000F4 
12000A0 
1300078 
1200078 
1300078 
13000 F2 
-12000FO 
1200010 


. 1300064 


1300070 
9°:000F0 


USAGE 


PARA~-NM 
O1SP 
oI SP 
oI SP 
orse 
OISP 
OISP 
DISP 
GROUP 
GROUP 
OI Se 
DISP 
GROUP 
GROUP 
GROUP 
OISP 
GRouP 
GRouP 
OISP 
PARA-NK 
OISP 
DISP 
oISsP 


LIETING BOURGAIN BOURGAIN 
CROSS“REFERENCE LISTING (ALPHABETIC ORDER) 
PIC~STRING 


9(2) 
x¢10) 
x¢10) 
9¢2) 
x(€2) 
91) 
9(10) 
x¢70) 
x¢€70) 
x (8) 
9¢2) 
X¢4) 
X(36) 
x(€36) 
9(3) 
x6) 
x¢8) 
9¢35) 


9¢€10) 
9¢5) 
94) 


COEF. 


13322348 MAR 314 1978 


REF. LINES 


87 96 98 100 105 

NORE F 
NOREF 

78 81 

RO 94 

NOREF 

NOREF 

NOREF 

89 

83 

81 83 

NOREF 

NOREF 

93 96 97 98 99 100 105 
105 106 107 109 110 111 
90 944 95 97 99 
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ci-V 


COBOL V-50.2 x86.1 LISTING BOURGAIN BOURGAIN 
FIND-DAY COMPILATION SUMMARY 


SUMMARY OF ERRORS 


ON LINES A.7 40 2.44 83 
ON LINES 83 110 


* & 

se & 
ese ee & 
ooww 


CU PRODUCED ON LIBRARY 3000086. TEMP.CULIB 


SEGMENT NAME TYPE SIZE CIN BYTES) 
FIND-DAY.0 eel 99 
FIND=DAY.1 oD. 278 
FIND-DAY.2 Cae 434 
STACK 68 


RUN TIME PACKAGE PROCEDURES INVOKED 


NONE 


13322348 MAR 314 1978 
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APPENDIX B 
SCOBOL ERROR MESSAGES 


B=-01 


— 


—_ —d od =-3 23 = 


=1.5 


=36 


ILLEGAL CHARACTER. REPLACED BY SLANK,. 

TOO LONG PICTURE CHARACTER STRING. PICTURE CHARACTER 

STRING IS TRUNCATED. . 

END DELIMITER MISSING IV A LITERAL. DELIMITER 

IS ASSUMED. : 

TOO LONG LITERAL. LITERAL IS TRUNCATED. 

ILLEGAL CONTINUATION OF A NON-NUMERIC LITERAL. COLUMN 
7 IGNORED, 

DEBUGGING LINE DISALLOWED IN PSEUDO-TEXT PRECEDING 

"By". LINE ACCEPTED. 

SEQUENCE ERROR OR NON-“-NJMERIC LINE NUMBER. LINE IS 
ACCEPTED. 

AREA A IS IGNORED IN A CONTINUATION LINE. 
CONTINUATION LINE NOT ALLOWED AFTER DEBUGGING OR 

COMMENT LINE» WITHIN A COMMENT ENTRY OR AS FIRST LINE 

OF SOURCE OR COPIED TEXT. COLUMN 7 IS IGNORED. 

FIRST WORD IS NEITHER "CONTROL” NOR "IDENTIFICATION", 

OR IT DOES NOT BEGIN IN AREA A. 

SYNTAX CHECKING DISCONTINUED. 

SYNTAX CHECKING RESUMED. 

IMPLEMENTATION RESTRICTION. NOT ENOUGH ROOM TO 

ACCOMODATE "REPLACE", "COPY wee REPLACING 222" AND/OR 
STATEMENT SCANNING. 

ZERO LENGTH OR TOO LONG WORD AFTER REPLACEMENT. 
REPLACEMENT DID NOT TAKE PLACE. 

THIS "BY" PHRASE WILL NOT PARTICIPATE TO REPLACEMENT 

BECAUSE OF A PREVIOUS "3Y" PHRASE. 

“COMPILE” COMMAND OR TERMINATING SEMI-COLON THEREOF 

ASSUMED TO BE MISSING. IS REPROCESSED. 

EMPTY PSEUDO-TEXT TO THE LEFT OF “BY”, THIS "BY" 
PHRASE WILL NOT PARTICIPATE TO REPLACEMENT. 

ILLEGAL CHARACTER IN COLUMN 7. LINE IS IGNORED. 

NO "COMPILE" COMMAND FOJND IN THE ALTER FILE. 
DUPLICATE OR OUT OF SEQJENCE DIVISION HEADER, 

- DIVISION MISSING. 

ILLEGAL DELIMITER FOR THE REGULAR EXPRESSIONS OF AN 

"Ss" COMMAND. 

THIS WJORD IN AREA A IS NOT A USER-DEFINED WORD. 

THIS WORD IS RESERVED FIR FUTURE IMPLEMENTATION. 
ILLEGAL CHARACTER IN SYMBOLIC CHARACTER. END OF 
LITERAL IS IGNORED. : 

THIS FEATURE IS A -— FEATUREs NOT INCLUDED IN THE 
CURRENT COMPILATION LEVEL. 

THE USE OF THIS RESERVED WORD HAS BEEN RESTRICTED BY 
THIS INSTALLATION. 

TOO COMPLEX SUBSTITUTE STRING. 

ZERO LENGTH PICTURE CHARACTER STRING. "PICTURE X" IS 

ASSUMED. 

ZERO LENGTH NON-NUMERIC OR BOOLEAN LITERAL. SPACE OR 
ZERO IS ASSUMED, RESPECTIVELY. 

TOO LONG A SOURCE LINE. LINE IS TRUNCATED. 

FIRST WORD OF TEXT REPLACED (OR DELETED). 

LAST WORD OF TEXT REPLACED (OR DELETED). 

WORD REPLACED (OR DELETED). 

LINE TOO LONG AFTER ALTER SUBSTITUTION. 

UNKNOWN OR ILLEGAL ALTER COMMAND. 
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THE FIRST COMMAND OF THE ALTER ENCLOSURE IS NOT AN 

"R™ COMMAND WITHOUT ADDRESS EXPRESSION. 

AN "R'" COMMAND IS ALLOWED ONLY AS THE FIRST COMMAND 

OF AN ALTER ENCLOSURE. 

ADDRESS EXPRESSION MISSING BEFORE oo OR fe. 

ADDRESS EXPRESSION MISSING AFTER "4" OR "7", 

ADDRESS RANGE IS NOT FOLLOWED BY A "Cs, A "D" OR AN 

"Ss COMMAND. 

END OF COMMAND MISSING IN ALTER LINE. 

RELATIVE ADDRESS VALUE MISSING IN ALTER COMMAND. 
TEXT FOLLOWS THE "A™, "C", "I" OR "Q" COMMAND 

ON THE LINE. TEXT IS IGNORED. 

DOLLAR MUST NOT BE THE FIRST ADDRESS OF AN ADDRESS 

RANGE. 

DOLLAR MUST NOT BE FOLLOWED BY A RELATIVE ADDRESS. 
SYNTAX ERROR IN REGULAR EXPRESSION. 

NUMERIC ADDRESSES ARE MEANINGFUL ONLY WITH SOURCE 

PROGRAM IN SSF FORMAT, 

OPERAND FOLLOWING "BY" IS ILLEGAL OR MISSING. 
IMPOSSIBLE TO NOTE ON ~ wHERE TO START FROM AT NEXT 

COMPILATION. 

IMPOSSIBLE TO RECOGNIZE THE LAST LINE IN 4. 

"a" IS REFERENCED, BUT IT IS NOT ASSIGNED. 
IMPOSSIBLE TO OPEN -. 

IMPOSSIBLE TO OPEN -.. 

IMPOSSIBLE TO INITIATE VEW COMPILATION. 

REPOSITIONNING ON - CANNOT BE DONE. 

DEBUGGING LINES ARE ALLOWED ONLY AFTER THE 
"OBJECT-COMPUTER® PARAGRAPH. LINE IS IGNORED. 

“COMPILE” COMMAND NOT RECOGNIZED. FIRST GROUP OF 
CONTISUOUS NON BLANK CHARACTERS IS IGNORED. 

TEXT FOLLOWS SEMI-COLON. TEXT IS IGNORED. 

OPTION CANNOT BE RECOGNIZED. OPTION IS IGNORED. 
SEMI-COLON MISSING AT THE END OF THE "COMPILE" 
COMMAND, 

"3", THOUGH SPECIFIED AS AN INPUT LIBRARYs DOES NOT 

CONTAIN TEXT. | | 

> (CONSOLE MESSAGE) 

ILLEGAL COBOL OPTION STRING. 

TOO MANY PERCENT LINES. LINE IS IGNORED. 

"R"™ COMMAND DOES NOT SPECIFY A SOURCE PROGRAM, AND 
NONE IS WAITING FOR THIS COMPILATION. 

TEXT FOLLOWS "“R™ COMMAND. TEXT IS IGNORED, 

LIBRARY-NAME SPECIFIED IN "R" COMMAND IS TOO LONG. 
MEMBER-NAME MISSING IN "R™ COMMAND, 

MEMBER-NAME SPECIFIED IN "R* COMMAND IS TOO LONG. 

UNDEFINED REGULAR EXPRESSION, 

MAXIMJM REGULAR EXPRESSION LENGTH EXCEEDED. 

COPY TEXT IN ~ NOT EXHAUSTED. 

ALTER TEXT IN - NOT EXHAUSTED. 

MORE THAN ONE LIBRARY MAY MATCH "a", 

MORE THAN ONE LIBRARY MAY MATCH "a", 

SYNTAX ERROR IN REGULAR EXPRESSION. : 
ILLEGAL CONTINUATION OF A NAME. COLUMN 7 IS IGNORED, 

LEVEL-64 SPECIFIC SYSTEW NAME. 

THE REPLACING PHRASE OF THIS COPY STATEMENT DOES NOT 


B-03 


=o3 
=105 
eo 4 
=e 
-103 
-104 
boa Ob 
+106 
«10:7 
-108 
=109 
a4 


-111 
ada Oe 


Ul 


~~ & iy 


APPLY TO THE COPIED ‘REPLACE’ STATEMENT. 

ILLEGAL CHARACTER IN A 30OLEAN LITERAL. CHARACTER IS 
IGNORED. 

IMPOSSIBLE TO CLOSE 9. 

ILLEGAL OR MISSING SYMBOLIC CHARACTER IN A 

NON-NUMERIC LITERAL. THE HIGHEST POSITION OF THE 

NATIVE COLLATING SEQUENCE IS ASSUMED. 

RIGHT-MOST CHARACTER MISSING IN SYMBOLIC CHARACTER. 
ZERO IS ASSUMED. 

IMPOSSIBLE TO CLOSE 7. 

SEPARATOR MISSING BEFORE THE WORD. SLANK IS ASSUMED. 

REFERENCED LINE NOT FOUND OR ALREADY PASSED. 

PUNCTUATION CHARACTER IS NOT FOLLOWED BY A BLANK. 

MISSING BLANK IS ASSUMED. 

ILLEGAL CONTINUATION OF A WORD. COLUMN 7 IS IGNORED. 
ILLEGAL CONTINUATION OF A NON-NUMERIC LITERAL. 

MISSING QUOTE IS ASSUMED. 

END QUOTE MISSING IN A NON-NUMERIC LITERAL. MISSING 

QUOTE IS ASSUMED. 

TOO LONG A NUMERIC LITE2ZAL. INTEGRAL PART IS 

TRUNCATED. 

TOO LONG A NUMERIC LITERAL. FRACTIONAL PART IS 

TRUNCATED. 

ERROR WHILE PURGING -. 

SOME ERRORS ON THIS LINE MAY INDEED APPLY TO THE FIRST 

LINE FOLLOWING THE CURRENT COPIED TEXT CIF ANY). 

THE END OF THIS LINE IS NOT PROCESSED FROM THIS POINT 

ON. IT IS REPEATED AFTER THE COPIED TEXT CIF ANY). 
TOO SHORT A RECORD ON > TO BE AN SSF RECORD. LINE IS 
IGNORED AND IS NOT SHOWN IN THE LISTING. 

PICTURE ‘CHARACTER STRING ENDS WITH A PERIOD OR A 

COMMA, THE PERIOD(S) AND/OR COMMACS) TERMINATING THE 

PICTURE CHARACTER STRINS ARE IGNORED. 

TOO LONG NAME, NAME IS TRUNCATED. 

NAME TERMINATES WHITH AN HYPHEN, 

THE APOSTROPHE IS USED IuSTEAD OF THE QUOTE TO 
DELIMIT LITERALS IN THIS PROGRAM, 

PERIOD MISSING AFTER THE REPLACE STATEMENT. 

NESTED COPY STATEMENT. COPY STATEMENT IS NOT APPLIED. 
TEXT-VAME MISSING IN COPY STATEMENT. COPY PARSE IS 

TERMINATED. 

LIBRARY-NAME MISSING IN COPY STATEMENT. "IN" OR "OF" 
ARE IGNORED. | 

PERIOD MISSING AFTER THIS COPY STATEMENT. 

PERIOD MISSING AFTER THIS COPY STATEMENT. THOUGH NOT 
REPEATED BELOW IN THE SOURCE LISTING, THE WORD 


“FOLLOWING THE STATEMENT WILL BE PROPERLY TAKEN CARE OF, 


UNEXPECTED SSF CONTROL RECORD IN >. RECORD IS IGNORED 
AND IS NOT SHOWN ON THE SOURCE LISTING. 

TOO LONG A RECORD IN = TO BE AN INPUT LINE. RECORD 

IS IGNORED AND IS NOT SHOWN ON THE SOURCE LISTING. 
ABNORMAL TERMINATION OF THE SOURCE WHILE PROCESSING 
AN ALTER INSERT» CHANGE OR APPEND ENCLOSURE, 

END OF LINE CONSIDERED AS COMMENT. 

NO ALTER DATA AVAILABLE. > IS EMPTY. 

THE ALTER ENCLOSURE IN > DOES NOT CONTAIN DATA, 
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END OF SOURCE PROGRAM REACHED WHILE SEEKING FOR A 
LINE SPECIFIED IN AN ALTER COMMAND, 

"a" NOT FOUND IN ASSIGNED OR SPECIFIED INPUT LIBRARIES. 
"a" NOT FOUND IN ASSIGNED OR SPECIFIED INPUT LIBRARIES. 
NONE JF THE SPECIFIED INPUT LIBRARIES IS “a", 

NONE OF THE SPECIFIED INPUT LIBRARIES IS "3", 

"a" NOT ASSIGNED. 

"~" NOT ASSIGNED. 

"a" NOT ASSIGNED. 

- NOT FOUND. 

a NOT FOUND, 

SSF FORMAT FOR ~ MUST BE EITHER COBOL» OR COBOLXs OR 
DATASSF. 

SSF FORMAT FOR = MUST BE EITHER COBOL» OR COBOLXs OR 
DATASSF. 

SSF FORMAT FOR ~ MUST BE DATASSF. 

EMPTY CONTINUATION LINE. LINE IS IGNORED. 

MISSING CLOSING BRACKET IN IDENTIFIER. THIS “BY” 
PHRASE WILL NOT PARTICIPATE TO REPLACEMENT. 

QUALIFIER MISSING IN IDENTIFIER. THIS "BY" PHRASE 
WILL NOT PARTICIPATE TO REPLACEMENT. 

"BY" PHRASE MISSING. 

ERROR WHILE READING -. 

EXPECTED WORD WAS “BY", 

SUBSCRIPT MISSING IN IDENTIFIER. THIS “BY” PHRASE 
WILL NOT PARTICIPATE TO REPLACEMENT. 

RELATIVE INDEX MISSING IN IDENTIFIER. THIS “BY” 
PHRASE WILL NOT PARTICIPATE TO REPLACEMENT. 

NO SOURCE PROGRAM AVAILABLE. 7 IS EMPTY. 

NO SOURCE PROGRAM AVAILABLE. > (SPECIFIED IN THE “R" 
COMMAND). IS EMPTY. 

ENDING PSEUDO-TEXT DELIMITER MISSING. THIS "BY" 
PHRASE WILL NOT PARTICIPATE TO REPLACEMENT. 

ILLEGAL OR MISSING EXPONENT. ZERO IS ASSUMED. 

SEARCH FOR SUBSTITUTION FAILED. 

NEXT COR FIRST) SOURCE IN > CANNOT BE ACCESSED. 

COPY WORD FOUND WITHIN A COPY OR A REPLACE STATEMENT. 
SOURCE TEXT IN -~ NOT EXHAUSTED. 

THE “CB REQUEST IS NOT INCLUDED IN THE SET OF 

ALTER COMMAND. 

"a" TS ASSUMED TO BE AN EXTERNAL FILE-NAME AND AS SUCH 
IS NOT ALLOWED IN AN "R"™ COMMAND. ONLY “INLIB1", 
"INLIB2", “INLIB3" AND "LIB™ ARE ALLOWED AS SUBFILE 
QUALIFIER. 

ONLY THE SEMI-COLON IS ALLOWED IN A RANGE WHOSE FIRST 
ADDRESS IS A COMPOUND ADDRESS. 


PUNCTUATION CHARACTER IS NOT FOLLOWED BY A BLANK, 


MISSING BLANK IS ASSUMED. 
COPY STATEMENT. NOT FULLY CONTAINED IN A DEBUGGING LINE. 
THIS OPTION IS LEVEL-62 SPECIFIC. THE ENTIRE 
SECTION IS SCANNED OFF. 

A USE FOR DEBUGGING ON ALL PROCEDURES HAS BEEN 
PREVIOUSLY MET. 


a] 


ERROR MESSAGES ABOUT THE CURRENT COPY STATEMENT 
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HAVE BEEN LOST FROM THIS POINT ON. 

ERROR MESSAGES ABOUT THE CURRENT COPY STATEMENT 

HAVE 3EEN LOST FROM THIS POINT ON. 

THIS FEATURE IS A LEVEL-62 SPECIFIC FEATURE. 

THIS ITEM MAY ONLY BE REFERENCED IN A PARAGRAPH OF A 
USE FOR DEBUGGING SECTION. 

A LINE MAY BE LOST. 

LEVEL-62 SPECIFIC DEBUG-ITEM REFFRENCE. 

-~ IS ASSUMED TO BE IN SSF FORMAT. 

LEVEL-62 SPECIFIC COLUMV 7. THE LINE IS PROCESSED AS A 
COMMENT LINE? I.E. IS IGNORED. 

THIS FEATURE (NON CONTIGUOUS SECTIONS OF THE SAME 
PRIORITY) IS A - FEATURE» NOT INCLUDED IN THE CURRENT 
COMPILATION LEVEL. 

EXCESS NUMBER OF CHARACTERS IS SPECIFIED IN PICTURE 
CHARACTER STRING IT MUST NOT EXCEED 39. 

ILLEGAL CHARACTER IS SPECIFIED IN THE PICTURE 
CHARACTER STRING. 
ILLEGAL COMBINATION OF CHARACTERS IS SPECIFIED IN THE 
PICTURE CHARACTER STRING. 

THE LENGTH OF THE EDITING CHARACTER STRING MUST NOT 
EXCEED 256 CHARACTERS. 

NO RECEIVING CHARACTER IS SPECIFIED IN THE PICTURE 
CHARACTER STRING. 

- DIVISION MISSING. 

ILLEGAL DATA TYPE IN “Z" REQUEST. 

UNABLE TO PROVIDE ALTERED SOURCE. 

THE SYNTAX AND BEHAVIOR OF THE COBOL "72" REQUEST MAY 
DIFFER FROM THOSE OF LIBHAINT. 
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THIS RESERVED WORD SHOULD BEGIN IN AREA A. 

THE RESERVED WORD DIVISION SHOULD APPEAR HERE, 
MISSING PERIOD. 

THE RESERVED WORD PROGRAM-ID SHOULD APPEAR HERE. 

THE PROGRAM NAME IS MISSING OR INCORRECTLY SPECIFIED. 
A DIVISION», SECTION» OR PARAGRAPH HEADER IS MISSING. 
THIS IDENTIFICATION DIVISION PARAGRAPH HAS APPEARED 
PREVIOUSLY. 

IDENTIFICATION DIVISION PARAGRAPHS APPEARED IN 
INCORRECT ORDER; ANSI REQUIRES THE CORRECT ORDER, 
CONFLICTING CLAUSES IN THIS SELECT STATEMENT: 7 
INVALID COMPUTER NAME, 

A MNEMONIC NAME HAS BEEN SPECIFIED PREVIOUSLY FOR THIS 
WORD. 

THE RESERVED WORD SECTION SHOULD APPEAR HERE, 

THE WORD DEBUGGING OR SUPERVISOR SHOULD APPEAR HERE, 
THE RESERVED WORD MODE SHOULD APPEAR HERE. 

THE RESERVED WORD SUPERVISOR SHOULD APPEAR HERE. 
THIS CLAUSE HAS ALREADY APPEARED. 

AN INTEGER SHOULD APPEAR HERE. 

THE MEMORY SIZE IS INCORRECTLY SPECIFIED. 

THE SPECIFIED SIZE OF MEMORY IS LARGER THAN AVAILABLE. 
THE SEGMENT-LIMIT CLAUSE HAS APPEARED PREVIOUSLY. 
THE RESERVED WORD IS SHOULD APPEAR HERE, 

THE SEGMENT LIMIT CANNOT BE GREATER THAN 49, 

INVALID SEGMENT-LIMIT CLAUSE. 

INVALID ASSIGN CLAUSE. 

THE CURRENCY SIGN LITERAL IS INVALID. 

THE RESERVED WORD COMMA SHOULD APPEAR HERE. 

THE STATUS OF THIS SWITCH WAS NOT SPECIFIED. 

THE STATUS OF THIS SWITCH HAS ALREADY BEEN SPECIFIED. 
INVALID CONDITION-NAME. 

THIS FILE HAS BEEN SELECTED PREVIOUSLY. 

THE ASSIGN CLAUSE IS MISSING FROM THIS SELECT 
STATEMENT. 

FILE INCORRECTLY ASSIGNED. 

THE WIRD REEL OR UNIT SHOULD APPEAR HERE. 

AN INTEGER SHOULD APPEAR HERE. 

INVALID PADDING LITERAL. 

PADDING CANNOT BE APPLIED ON THIS FILE. 

DUPLICATE PADDING CLAUSE FOR THIS FILEs FIRST CLAUSE 
ACCEPTED. 

INVALID BANNER CHARACTER. 

A BANNER CHARACTER CANNOT BE APPLIED ON THIS FILE. 
THE ORGANIZATION QUALIFIER IS INCOMPATIBLE WITH THE 
ORGANIZATION. 

THIS FEATURE IS A — FEATURE NOT INCLUDED IN THE 
CURRENT COMPILATION LEVEL. 

THE COMPUTER NAME SHOULD BE "LEVEL-64" OR "GCOS". 
INVALID OPTION IN A SELECT PHRASE. 

DUPLICATE CHARACTER IN ALPHABET NA“E SPECIFICATION. 
INVALID RECORD PREFIX. 

INVALID INPUT-OUTPUT TECHNIQUE. 

INVALID KEY NAME, 

INVALID FILE NAME, 
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THE RESERVED WORD ON SHOULD APPEAR HERE. 

INVALID DEVICE. 

THE RESERVED WORD CHECKPOINT~FILE SHOULD APPEAR HERE 
INVALID CONDITION-NAME. 


NUMBER OF ALTERNATE KEYS IS LIMITED TO A MAXIMUM OF 15. 


NUMBER OF SECONDARY KEYS IS LIMITED TO A MAXIMUM OF 8. 


THE FILE REFERENCED IN THE RERUN EVERY END OF REEL/UNIT 


IS NOT ACCESSED SEQUENTIALLY 

INVALID RERUN CLAUSE. . 
ONLY ONE FILE NAME WAS SPECIFIED IN THIS SAME CLAUSE. 
NO SYNTAX CHECKING FROM THE LAST DIAGNOSTIC TO THIS 
POINT. 

INVALID MNEWONIC-NAME,. 

THE RESERVED WORD FILE SHOULD APPEAR HERE. 

THIS FILE NAME HAS APPEARED IN A PREVIOUS SAME AREA 
CLAUSE. 

THIS FILE NAME HAS APPEARED IN A PREVIOUS SAME RECORD 
AREA CLAUSE. 

ANOTHER FILE IS ASSIGNED TO THE SAME IFN AS THIS FILE. 
INVALID ACCESS MODE. 

THE RESERVED WORD SEGMENT SHOULD APPEAR HERE. 
INVALID FILE NAME IN THIS SELECT CLAUSE. 

INCORRECT ORDER OF CLAUSES IN THIS SELECT 

STATEMENT. 

THE RESERVED WORD MULTIPLE SHOULD APPEAR HERE. 
INVALID ORGANIZATION CLAUSE. 

THE RESERVED WORD STATUS SHOULD APPEAR HERE. 

INVALID FILE STATUS NAME. 

DUPLICATE BANNER CLAUSE FOR THIS FILEs FIRST CLAUSE 
ACCEPTED. 

NO-RESIDENT-INDEX CANNOT BE APPLIED ON THIS FILE. 
DUPLICATE NO-RESIDENT-INODEX CLAUSE FOR THIS FILE. 

A KFY CLAUSF IS REQUIRED FOR THIS FILE. 

THIS I-O TECHNIQUE IS INCOMPATIBLE WITH A TECHNIQUE 
PREVIOUSLY SPECIFIED FOR THE SAME FILE. 

INCORRECT ORDER OF I-O-CONTROL CLAUSES. 

INCORRECT ORDER OF OBJECT-COMPUTER CLAUSES. 
INCORRECT ORDER OF SPECIAL~NAMES CLAUSES. 

MISPLACED DECIMAL-POINT CLAUSE HAS AFFECTED LEXICAL 
ANALYSIS OF PROGRAM, 

THE FILE WAS ALREADY REFERENCED IN A PREVIOUS &FFUN 
CLAUSEs FIRST CLAUSE ACCEPTED 

THIS FILE HAS ALREADY APPEARED IN A WMULTIPLE FILE 
CLAUSE. 

A PREVIOUSLY SELECTED FILE IS ASSIGNED TO SYS-WRITE. 
INVALID QUALIFIER ON KEY OR FILE STATUS NAME. 


-INVALID IMPLEMENT OR-NAME . 


INVALID COLLATING SEQUENCE CLAUSE. 

THE RESERVED WORD RECORD SHOULD APPEAR HERE, 
INVALID DUPLICATES CLAUSE. 

INCORRECT ORDER OF SOURCE-COMPUTER CLAUSES. 
INVALID SEGMENT SIZE CLAUSE. 

INVALID ADDRESS FORMAT. 


THE SPECIFIED ADDRESS FORMAT CANNOT BE APPLIED ON THIS 


FILE. 
DUPLICATE ADDRESS FORMAT CLAUSE FOR THIS FILEs FIRST 
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CLAUSE ACCEPTED. 

DEFAULT CLAUSE CANNOT BE RECOGNIZED 

PROGRAM-NAME EXCEEDS 12 CHARACTER IN LENGTH 

THIS CLAUSE CANNOT BE RECOGNIZED 

THE RESERVED WORD SELECT SHOULD APPEAR HERE 

THIS FEATURE IS NOT IMPLEMENTED 

NON STANDARD "IFN" SUFFIX 

THIS CLAUSE IS USED FOR DOCUMENTATION ONLY 

THIS FEATURE WILL NOT BE ALLOWED WITH THE NEXT RELEASE 
SYNTAX ERROR 

THE SPECIFIFIED SIZE MAY NOT EXCEED 32K BYTES FOR 
PROCEDURE SEGMENTS OR 44 BYTES FOR DATA SEGMENTS. 
ALPHAZET-NAME ALREADY DECLARED 

THE ALPHABET-NAME REFERENCED IN THE PROGRAM COLLATING 
SEQUENCE CLAUSE IS NOT DECLARED HEREAFTER | 

THE SUBSTITUTION SECTION HAS NOT BEEN EXECUTED 
DUPLICATE DEFAULT FOR SYMBOLIC QUEUE CLAUSE 

DUPLICATE DEFAULT FOR TEMP CLAUSE? FIRST CLAUSE 
ACCEPTED 

DUPLICATE DEFAULT FOR ACCEPT CLAUSEs FIRST CLAUSE 
ACCEPTED . 

DUPLICATE DEFAULT FOR DISPLAY CLAUSEs FIRST CLAUSE 
ACCEPTED 

THE RESERVED WORD IDENTIFICATION SHOULD APPEAR HERE 
SPECIFIED ORGANIZATION IS ILLEGAL 

DEFAULT FOR TEMP MUST BE BETWEEN 18 AND 30 INCLUSIVELY. 
COMPILER ERROR : SUBROUTINE STACK OVERFLOW. 

INDEX FILE IS INCORRECTLY SPECIFIED. 

INVALID FILE FOR “4ULTIPLE FILE CLAUSE. 

"a" IS THE IFN GIVEN TO THIS FILE. 

THE MEMBERS OF A MULTIPLE FILE MUST HAVE THE SAME 
DEVICE AND ORGANIZATION CLAUSE. 

MORE THAN ONE MEMBER OF A MULTIPLE FILE ARE GIVEN THE 
SAME POSITION. 

THE RESERVED WORD ‘INDEX' SHOULD APPEAR HERE. 
OPTIONAL FILE MUST BE ORGANIZATION SEQUENTIAL. 

NON. SEQUENTIAL ORGANIZATION OPTIONAL FILE IS A LEVEL-62 
SPECIFIC FEATURE. 

THIS MAY BE A LEVEL-62 INTERNAL DEVICE DESIGNATOR. 
THIS IS A LEVEL-62 SPECIFIC FEATURE. 

THIS LEVEL -$2 SPECIFIC FEATURE IS IGNORED. 

THE RESERVED WORD CONSOLE SHOULD APPEAR HERE. 

THIS FEATURE COPTIONAL JR EMPTY SECTION OR PARAGRAPH) 
IS A (EVEL -64 FEATURE NOT INCLUDED IN THE CURRENT 
COMPILATION LEVEL. | 

A LEVEL-62 SWITCH STATUS NAME ASSUMED, THE RERUN CLAUSE 


‘IS IGVORED. 


THIS LEVEL ~62 SPECIFIC FEATURE IS NOT IMPLEMENTED. 
THE INTERACTIVE MODE IS NOT AVAILABLE ON YOUR SITE, 
PLEASE CONTACT SUPPLIER. 

CONFLICTING CLAUSES IN THIS SELECT STATEMENT: = 
UNEQUAL SIZE REDEFINES. 

BLOCK SIZE MUST EQUAL MAXIMUM RECORD SIZE. 

THE SPECIFIED BLOCK SIZE IS TOO SMALL TO CONTAIN THE 
LARGEST RECORD OF THIS FILEs THE BLOCK CLAUSE WILL 3. 
IGNORED. 
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THE RECORD FORMAT FOR THIS FILE IS PERMITTED ONLY ON 
TAPE. 

THE RECORD FORMAT FOR THIS FILE IS PERMITTED ONLY ON 
TAPE OR DISK. 

A RECORD CONTAINS... DEPENDING... CLAUSE IS NOT 
PERMITTED WITH THIS RECORD FORMAT. 

A DATA RECORD FOR THIS FILE IS TOO LARGE FOR THE 
SPECIFIED DEVICE. 

INVALID RECORD FORMAT FOR CPL FILE. 

RECORD PREFIX INCOMPATI3LE WITH DISPLAY TO SYSOUT. 
LEVEL-58 IS ALLOWED ONLY IN LEVEL-68 COBOL. 

UNBANNERED APPLIES TG H-2000 ODD PARITY TAPE FILES 
ONLY. 

DUPLICATE I-O0 TECHNIQUES APPLIED TO THIS FILE? FIRST 
CLAUSE ACCEPTED. 

THE INTERNAL-FILE-NAME WUST BE H_SORT AS RANDOM APPLIES 
ONLY TO SORT FILES. 

INVALID CATALOGUE-NAME. 

THE RESERVED WORD TEMPORARY OR PERMANENT SHOULD APPEAR 
HERE. 

NO-SORTED-INDEX APPLIES UNLY TO INDEXED FILES 

DESCRIBED WITH ALTERNATE KEYS. . 
DUPLICATE DISPLAY SIGN IS CLAUSEs THE FIRST CLAUSE WAS 
ACCEPTED. 

LEADING DR TRAILING MUST BE SPECIFIED IN THE DISPLAY 
SIGN IS CLAUSE. | 

DUPLICATE DEFAULT FOR COMP CLAUSEs THE FIRST CLAUSE WAS 
ACCEPTED. 

THE DEFAULT FOR COMP CLAUSE IS IMPROPERLY STATED. 

A FIL-ER IS MISSING TO ACCOMODATE SYNCHRONIZED IN THE 
CURRENT REDEFINITION: FILLER IS PROVIDED 

THE SYNCHRONIZATION CANNOT BE ACCOMODATED FOR ALL 
OCCURRENCES OF THIS ITEM 

THIS FEATURE IS NOT IMPLEMENTED 

THE SIZE OF THE 01 OR 77 LEVEL ITEM EXCEEDS THE 
SPECIFIED OR IMPLIED MAXIMUM SEGMENT SIZE 
IMPLEMENTATION RESTRICTION: TOO MANY ITEMS SUBORDINATE 
TO THIS ITEM OR REDEFING IT, SPACE IS ONLY ALLOCATED 
FOR THE SIZE OF THE REDEFINED O01 OR 77 LEVEL ITEM 

THE O1 LEVEL ITEM HAS NOT THE SAME LENGTH AS THE CD IT 
IMPLICITELY REDEFINES 

THE VALUE CLAUSE HAS BEEN DISREGARDED BECAUSE OF THE 
INITIAL ATTRIBUTE OF THE CDs THOUGH PART OF IT MIGHT BE 
SIGNIFICANT 

A VALUE CLAUSE CANNOT BE SPECIFIED FOR A O1 LEVEL ENTRY 
THAT DOES NOT IMMEDIATELY FOLLOW A CD ENTRY IN THE 
COMMUNICATION SECTION 

THE SIZE OF THE RECORD MIGHT BE TOO SMALL IF THE. FILE 
IS ASSIGNED TO A TAPE 

IMPLEMENTATION RESTRICTION: TOO LARGE O01 OR 77 LEVEL 
ITEM 

THE LENGTH OF THIS RECORD IS GREATER THAN THE MAXIMUM 
SPECIFIED IN THE RECORD CONTAINS CLAUSE 

THE LENGTH OF THIS RECORD IS NOT EQUAL TO THE SPECIFIED 
IN THE RECORD CONTAINS CLAUSE 

THE ORGANIZATION OF THIS FILE CONTRADICTS THE VARIABLE 
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RECORD FORMAT IMPLIED BY THE FOLLOWING DEFINITION 

THE SPECIFIED CODE-SET IS NOT ALLOWED WITH THE FILE 

ORGANIZATION 

THE SPECIFIED CODE-SETCI3CD) ITS MEANINGFUL ONLY IF THE 
FILE ACTUALLY ASSIGNED AT OBJECT-TIME IS A TAPE FILE 

THE SPECIFIED CODE=SET IS. NOT TAPLEAENTED 

THE NUMBER OF CHARACTERS SPECIFIED IN THE BLOCK CONTAIN 
CLAUSE IS NOT A MULTIPLE OF THE RECORD SIZE 

LINAGE CLAUSE MAY ONLY 3£€ USED FOR AN SSF FILF 

THIS SYNTAX OF THE RECORD PREFIX PHRASE WILL NCT BF 

ACCEPTED AFTER THIS RELEASE 

THE CODE=SET TS. LBCD CLAUSE SAY GYCY Sb USED FOR -A TAPE 
FILE WHEN ITS ORGANIZATION IS H-2N00 SEQUENTIAL 

THE LONGEST RECORD OF AN SSF FILE “UST BE AT LEAST 71 

CHARACTERS IN LENGTH, 

IMPLEMENTATION RESTRICTION : "INDEXED 3Y" MUST NOT SE 

USED WHEN EITHER THE ELEMENT SIZE OR THE REPEATITION 

NUMBER IS GREATER THAN 65535, 

THE CODE-SET CLAUSE IS NOT ALLOWED WITH THE FILE 

ORGANIZATION, 

NO SPACE AVAILABLE TO PROCESS THE SYNCHRONIZED 

ATTRISUTE. 

INTERNAL FILE NAME “HHSORT”™ -TS. RESERVED FOR SORT FILES. 

THE SELECT CLAUSE FOR A SORT FILE CAN ONLY CONTAIN 

THE ASSIGNC(MANDATORY) CLAUSE AND NON-STANDARD 

FLR/VLR OPTION. 

THE INTERNAL FILE NAME GIVEN FOR THIS FILE IS NOT 

ALLOWED FOR A SORT FILE. 

THE FILLER INSERTED FOR SYNCHRONIZATION WAS NOT TAKEN 

CARE OF IN THE REDEFINITION. 

Aa TYPE 1 FILLER WAS ADOED AT THE END OF THIS ITEN 
(SEE REFERENCE MAJAUAL). 

A> TYPE 2 FILLER WAS ALLOCATED TO ALIGN THIS 

SYNCHRONIZED ITEM (CSEE REFERENCE MANUAL). 

THIS "SELECT™ HAS NO CORRESPINDING "FD". 

THIS FILE HAS SEEN OPENED BUT NOT CLOSED. 

THIS FILE HAS BEEN CLOSED 3UT NOT OPENED. 

THIS FILE WAS NOT OPENED IN INPUT OR I-0 MODE THOUGH IT 
IS REFERENCED IN A “READ” OR A "START™ STATEMENT, 

THIS FILE WAS NOT OPENED IN THE PROPER MODE TO BE 

REFERENCED IN A “WRITE” STATEMENT. 

THIS FILE WAS NOT OPENED IN I-0 MODE THOUGH IT IS 

REFERENCED IN A “REWRITE” OR A “DELETE” STATEMENT. 

TRIS FILE IS NOT REFERENCED IN A "READ" STATEMENT 

THOUGH IT IS REFERENCED IN A “REWRITE” OR A "DELETE" 

STATEMENT» AND IT IS IN SEQUENTIAL ACCESS. 

ONLY INPUT FILES CAN BE OPTIONAL. 

THE (MAXIMUM) SIZE IN THE RECORD CONTAINS CLAUSE IS 

GREATER THAN THE SIZE OF THE LARGER RECORD DESCRIBED 

FOR THIS FILE? IT WILL 3& TAKEN CARE OFs FROM THE NEXT 

RELEASE ONs IN DETERMING THE RECORD CAREA) SIZE. 
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UNRECOGNIZABLE SECTION SPECIFICATION HAS OCCURRED. 
RESERVED WORD SECTION IS MISSING. 

PERIOD IS MISSING. | 

REDUNDANT FILE SECTION HAS DETECTED,» ONLY ONE FILE 
SECTION IS ALLOWED PER PROGRAM, 

SECTIONS PRECEDENCE SYNTAX ERROR IS DETECTED, CHECK 
COBOL MAKUAL FOR CORRECTION. 

UNRECOGNIZASLE FILE SECTION LEVEL INDICATOR HAS 
OCCURRED, IT MUST BE FD, SD. 

THE RECORD NAME OF THIS FILE IS IN ERROR, 

RECORD HAS FATAL SYNTAX ERROR» SYNTAX ANALYSIS OF THIS 
RECORD IS NOT COMPLETED. 

IN THE PRESENT DATA ENTRY- THE FOLLOWING DATA 
PROPERTIES ARE INCONSISTENT WITH 7 

FILE NAME IS NOT DEFINED IN ENVIRONMENT DIVISION. 
UNRECOGNIZABLE FD CLAUSES ARE ENCOUNTERED. 

LABEL CLAUSE IS MISSING IN CURRENT FD ENTRY. 

RECORD DESCRIPTION IS MISSING . 

FILE RECORDING CODE NAME IS IN ERROR. 

CHARACTERS OPTION IS ASSUMED FOR THE BLOCK CLAUSE. 
MAXIMJM RLOCK SIZE INTESER IS MISSING. 

MAXIMIM RECORDS SIZE INTEGER IS MISSING. 

RESERVED WORD RECORD IS AISSING, 

RESERVED WORD OF IS MISSING. 

DATA NAME IS MISSING OR IN ERROR, 

LITERAL OR DATA NAME IS MISSING. 

REDUNDENT TOP PHRASE IS SPECIFIED FOR LINAGE CLAUSE. 
LINAGE SPECIFICATION IS IN ERROR. 

SD DESCRIPTION CONTAINS FATAL SYNTAX ERROR, SYNTAX 
ANALYSIS. IS NOT COMPLETED. 

LITERALCiNTEGER) IS MISSING. 

AREA CLAUSE IS MISSING. 

REDUNDANCY OF WORKING_STORAGE SECTION IS DETECTED, ONLY 
ONE IS ALLOWED PER PROGRAM, 

UNRECOGNIZABLE LEVEL OR SECTION INDICATOR HAS OCCURRED. 
REDEFINES CLAUSE WHEN USED MUST I¥4MEDIATLY FOLLOW THE 
SUBJECT OF REDEFINES . 

DD CLAUSE HEADER IS IN ERROR. 

THE OCCURS DEPENDING ON ITEM MUST BE THE LAST GROUP OR 
ELEMENTARY ITEM IN THE RECORD», IT CANNOT BE FOLLOWED BY 
AN ITEM OF EQUAL OR LESS LEVEL NUMBER. 

THE OBJECT OF REDEFINES DATA ITEM IS NOT FOUND AT EQUAL 
LEVEL, OR IS ITSELF THE SUBJECT OF REDEFINES. 

VALUE OF THE 88 CONDITION ITEM IS INCONSISTENT WITH THE 
OICTURE. 


THE 65 RENAMES ITEM CANNOT FOLLOW A 77 LEVEL ITEM. 


AN UNRECOGNIZABLE DATA ATTRIBUTE IS ENCOUNTEREDs OR 
PERIOD IS MISSING. 

THE CONDITION NAME MUST IMMEDIATLY FOLLOW THE 88 LEVEL 
NUMBER. 

THE VALUE SPECIFIED FOR THE CONDITION NAME IS IN 
ERROR, 

THE LEVEL NUMBER FOR THIS DATA ITEM IS IMPROPERs IT 
SHOULD BE ?7» OR Q1. 

8R CONDITION NAME ITEM CANNOT BE ASSOCIATED WITH A 66 
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LEVEL ITEM, 

8& CONDITION ITEM CANNOT BE ASSOCIATED WITH AN INDEX 
DATA ITEM, 

THE LITERAL VALUE AFTER THE THRJ MUST BE GREATER THAN 
THE LITERAL VALUE BEFORE THRU. 

THE OBJECT OF REDEFINES DATA WAAE IS NOT SPECIFIED. 
REDUNDANT REDEFINES CLAUSE IS DETECTED, ONLY ONE IS 
ALLOWED PER DATA ITEM, 

REDUNDANT PICTURE CLAUS= IS DETECTED, ONLY ONE IS 
ALLOWED PER DATA ITEM, 

REDUNDANT USAGE CLAUSE IS DETECTED» ONLY ONE IS ALLOWED 
PER ITEM. 

REDUNDANT VALUE CLAUSE IS DETECTED» ONLY ONE TS ALLOWED 
PER TT EMs 

OCCURS CLAUSE CANNOT BE DECLARED ON A LEVEL 1 OR 7? 
ITEM, NOR CAN IT 3E REDJNDENT. 

REDUNDANT JUST CLAUSE IS DETECTEDs ONLY ONE IS ALLOWED 
PER ob rce le 

REDUNDANT BLANK WHEN ZER0 CLAUSE IS DETECTED, OWLY INE 
IS ALLOWED PER DATA ITEM. 

REDUNDANT SYNC CLAUSE IS DETECTEDs ONLY ONE ITS ALLOWED 
PER BATA ITEN, 

REDUNDANT SIGN CLAUSE IS DETECTED,» ONLY ONE IS ALLOWED 
PER DATA’: DEER. 

REDUNDANT RENAMES CLAUSE IS DETECTED,» ONLY ONE IS 
ALLOWED PER ITEM. 

SIGN IS LEADING OR TRAILIWG IS NOT SPECIFIED. 

THE OFJECT OF REDEFINES MAY NWOT HAVE AN OCCURS CLAUSE. 
JIGJECT OF REOEFINES DATA HAME “CATHIOT BEAN. DTEe". OF 
VARITASLE LENGTH. 

THF OBJECT OF REDEFINES DATA NAAE IN FILE SECTION OR 
COMMUNICATION SECTION CANNOT BE AN Ot LEVEL ITER, THE 
REDSEFINITION IS IMPLIED. 

THe. SIJSIECT OF “REOEFINES. DATA ITEM CANNOT SE OF 
VARTABLE LENGTH. 

COMPILER LIMIT, ¢. TOO “IANY VALUES I 88 ENTRY. 

tHE SUBIC T OF RENAMES 15.:HOT SPECIFIED. 

THe RENAMES CLAUSE IS MISSING FOR THE 66 LEVEL ITEM. 
THE OSJECT OF RENAMES DATA NAME CANNOT BE FOUND IN THE 
PREVIDUS RECORD. 

A 66 [EVEL ENTRY CANNOT RENAME ANOTHER 66% O14 RE, IR 
77 LEVEL OATA ITEM, 

THE O3JECT OF RENAMES DATA ITEM CANNOT CONTAIN AN 
OCCURS CLAUSE,» NOR CAN IT gE SUBORDINATE TO AN 

ITEM WHICH CONTAINS AN OCCURS CLAJSE. 

RESERVED WORD THRU IS AISSING. 

LABEL CLAUSE IS MISSING IN THE CURRENT FD ENTRY. 

THe PICTURE CHARACTER STRING IS MISSING. 

REPORT CLAUSE AND DATA RECORD CLAUSE ARE MUTUALLY 
EXCLUSIVE. 

THE INITIAL VALUE IS REDUNDANTLY SPECIFIEDs WHEN THE 
GROUP ITEM ALREADY HAS INITIAL VALUE SPECIFIEDTHE 
SUBORDINATE ITEM CANNOT HAVE ADDITIONAL INITIAL VALJE, 
THE INITIAL VALUE IS INCONSISTENT WITH THE PICTURE OF 
THE DATA ITEM, 

THE USAGE OF A SUBORDINATE ITE “UST BE CONSISTENT WITH 
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THAT JF THE GROUP ITEM. 

WHEN THE GROUP DATA ITEM HAS INITIAL VALUESTHE 
SUBORDINATE ITEM CANNOT HAVE USAGE OTHER THAN DISPLAY. 
JUST RIGHT IS ASSUMED. 

WHEN THE GROUP DATA ITEM HAS INITIAL VALUES/THE 
SUBORDINATE ITEM 

SYNC RIGHT IS ASSUMED. 

WHEN THE GROUP DATA ITEM HAS INITIAL VALJESZTHE 
SUBORDINATE ITEM CANNOT CONTAIN SYNC CLAUSE. 

JUST CLAUSE 

THIS FEATURE IS A 7 FEATURE HOT INCLUDED IN THE 
CURRENT COMPILATION LEVEL. 

THE SIGN CLAUSE IS REDUNDANTLY SPECIFIED, WHEN THE 
GROUP ITEM HAS SIGN CLAJSE IT IS IMPLIED TO THE 
SUBORDINATE ITEM. 

COMPILER ERROR =: WORKING SPACE EXHAJSTED. 

RESERVED WORD ZERO IS MISSING. 

WHEN THE GROUP DATA ITEM IS ASSOCIATED WITH 38 
CONDITION ITEMS, THE SU3Z0RDINATE ITEMS CANNOT CONTAIN 
JUST CLAUSE. 

WHEN THE GROUP ITEM IS ASSOCIATED WITH 83 CONDITION 
ITEMS» THE SUBORDINATE ITEMS CANNOT CONTAIN SYNC CLAUSE 
WHEN THE GROUP ITEM IS ASSOCIATED WITH 88 CONDITION 
ITEMS, THE SUBORDINATE ITEMS CANNOT HAVE USAGE OTHER 
THAN DISPLAY. 

THE DIMENSION OF OCCURS CANNOT EXCEED 3. 

THE OCCURRENCE TIMES IS NOT SPECIFIED. 

THE OCCURRENCE TIMES CANNOT BE J. 

THE MAXIMUM OCCURRENCES “UST BE GREATER THAN THE 
MINIMJM OCCURRENCES. 

REPORT CLAUSE AND LINAGE CLAUSE ARE MUTUALLY EXCLUSIVE. 
WHEN THE GROUP ITEM CONTAINS OCCURS CLAUSE, THE 
SUBORDINATE ITEM CANNOT SE OF VARTABLE LENGTH. 

THE INOEX NAME IS MISSING. 

MIXED INDEXING IS NOT ALLOWEDs WHEN A TABLE ITEM HAS 
ONE LEVEL INDEXED, ALL LEVELS MUST ALSO BE INDEXED. 
THE SIGN TYPE OF A SUBORDIWATE ITEM MUST BE CONSISTENT 
WITH THAT OF THE GROUP ITE, 

REDUNDANT INDEXED BY CLAUSE IS DETECTED, ONLY ONE IS 
ALLOWED PER DATA ITEM, 

THE QUALIFICATION OF OBJECT OF REDEFINES DATA NAME IS 
FOR DOCUMENTATION ONLY. 

COMMUNICATION SECTION PRECEDENCE ERROR 

CD OUTPUT DESTINATION TABLE INDEX NAME OVER FLOW, 

THE O3JECT OF REDEFINES DATA NAME MAY BE IN ERROR, 
LEVEL INDICATOR CD IS MISSING OR IN ERROR 

CO NAME IS MISSING 

INPUT OR OUTPUT OPTION MUST BE SPECIFIED FOR EACH CD 
ENTRY 

ONLY ONE INITIAL CLAUSE IS ALLOWED IN THE COMMUNICATION 
SECTION 

WHEN NEITHER OPTION IS JSEDs» THE CD ENTRY MUST BE 
FOLLOWED BY ONE OR MORE O01 RECORD DESCRIPTIONS. 

EXCESS DATA NAMES ARE SPECIFIED FOR THE CURRENT -CD 
ENTRY. 

AN UNRECOGNIZABLE CD LEVEL INDICATOR OR SECTION HEADER 
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IS ENCOUNTERED. 

UNRECISNIZASLE CD CLAUSE IS ENCOUNTERED 

REDUNDANT CD INPUT SYMBOLIC SUBQUEUE-1 CLAUSE 
REDUNDANT CD INPUT SYMBOLIC SUBQUEYE-2 CLAUSE. 
REDUNDANT CD INPUT SYMBOLIC SUBQUEUE-3 CLAUSE 
REDUNDANT CD INPUT SYMBOLIC QuEJE CLAUSE 

REDUNDANT CO INPUT MESSASGE DATE CLAUSE 

REDUNDANT CD INPUT MESSAGE TIME CLAUSE 

REDUNDANT CD INPUT TEXT LENGTH CLAUSE 

REDUNDANT CD INPUT END KEY CLAUSE 

REDUNDANT CD INPUT STATJS KEY CLAUSE 

REDUNDANT CD INPUT QUEUE DEPTH CLAUSE 

REDUNDANT CD INPUT SYMHOLIC SOURCE CLAUSE 

REDUNDANT CD INPUT MESSAGE COUNT CLAUSE, 
UNRECOGNIZABLE CD OUTPUT ATTRIBUTE IS ENCOUNTERED 

THE MAXINUM OCCURRENCE NUMBER MUST BE NUMERIC INTEGER 
GREATER THAN 9, 

REDUNDANT CD OUTPUT DESTINATION COUNT CLAUSE 
REDUNDANT CD OUTPUT TEXT LENGTH CLAUSE 

REDUNDANT CO OUTPUT STATUS KEY CLAUSE 

REDUNDANT CO OUTPUT DESTINATION TABLE CLAUSE 
REDIJNDANT CD OUTPUT ERRIR KEY CLAUSE 

REDUNDANT CD OUTPUT SYMBOLIC DESTINATION CLAUSE 

THIS CD O1 RECORD HAS FATAL ERROR 

CD INPUT RECORD LENGTH MUST BE 37 CHARACTERS 

CD RECORD NAME ERROR 

CD OUTPUT RECORD LENGTH JUST 3€ GREATER THAN 22 
CHARACTERS | 7 

WORKING_STORAGE SECTION HAS FATAL SYNTAX CRROR, PARSING 
IS NOT COMPLETED. 

THIS FEATURE (LESS THAN 11 DATA NAHES) IS A LEVEL 64 
SPECIFIC FEATURE NOT INCLUDED IN THE CURRENT 
COMPILATION LEVEL. 

REDUNDANT LINKAGE SECTIO IS DETECTEDs ONLY ONEIS 
SLLOWED PER PROGRAM, 

CODE-SET CLAUSE ILLEGAL ON WON SEQUENTIAL FILE. 
REDUNDANT CONSTANT SECTION IS DETECTED, ONLY ONE IS 
ALLOWED PER PROGRAM, | 
CODE-SET CLAUSE ILLEGAL Of NON SEGUENTIAL FILE. 

THE USAGE SPECIFIED IS UNRECIGNIZASLS&. 

CODE-SET CLAUSE ILLEGAL ON NON SEQUENTIAL FILE. 
CODE-SET CLAUSE REDUNDANT ON FD OR ILLEGAL ON SD. 

THE DESCRIPTION OF THIS 66 RENAMES ENTRY HAS FATAL 
SYNTAX ERROR,» PARSING OF THIS ENTRY IS NOT COMPLETED. 
RECORDING MODE CLAUSE REDUNDANT ON FD OR ILLEGAL ON SD. 
BLOCK CONTAINS CLAUSE REDUNDANT 3M FD OR ILLEGAL ON SD. 
RECORD CONTAINS CLAUSE REDUNDANT ON FD OR SD. 

LABEL RECORD CLAUSE REDJNDANT ON Fd OR ILLEGAL ON SD. 
VALUE OF CLAUSE REDUNDANT ON FD OR ILLEGAL “ON SD. 
DATA RECORD CLAUSE REDUNDANT ON FD OR SD. 

REPORT IS CLAUSE REDUNDANT ON FD OR ILLEGAL ON SD. 
LINAGE IS CLAUSE REDUNDANT ON FD OR ILLEGAL ON SD. 
REDUNDANT DEPENDING ON CLAUSE IS DETECTED, ONLY .ONE IS 
ALLOWED. 

THE SPECIFICATION FOR LAGEL RECORD IS UNRECOGNIZABLE. 
DUPLICATE NAME IN REPORT CLAUSE. 
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THE CJRRENT SECTION IS ASSUMED TO BE FILE SECTION. 
THE CJRRENT SECTION IS ASSUMED TO BE WORKING STORAGE 
SECTION PLEASE DISREGARD THE IRRELEVANT DIAGNOSTICS IF 
ANY. 

SYNTAX ERROR IS ENCOUNTERED AT THIS POINTs PARSING IS 
DISCONTINUED. 

A DUMMY RECORD NAME IS SUPPLIED» SYNTAX CHECKING IS 
RESUMED. 

SYNTAX CHECKING IS RESUWED AT THIS POINT. 

A REPORT FILE MUST NOT HAVE THE DEPENDING OPTION IN 
THE RECORD CONTAINS CLAJSE. 

RECORD DESCRIPTION IS MISSINGs SYNTAX CHECKING IS 
RESUMED AT THIS POINT, 

A LINAGE OR REPORT CLAUSE CANNOT APPLY TO A FILE WHOSE 
ORGANIZATION IS NOT SEQUENTIAL. 

A REPORT FILE SHOULD WOT HAVE RECORD DESCRIPTION. 

THE DATA DESCRIPTION CLAUSES IN THIS ENTRY HAS FATAL 
ERROR, 

RESERVED WORD KEY IS MISSING. 

SSF IS ASSUMED WITH A LINAGE OR A REPORT CLAUSE. 

THE LITERAL FOLLOWING THE THRU OPTION IS MISSING. 

THE 66 RENAMES ENTRY IS WOT PROPERLY POSITIONEDs IT 
MUST IMMEDIATLY FOLLOW THE LAST DATA ENTRY OF THE 
LOGICAL RECORD. 

AREA NAME IS NOT DEFINED. 

SD NAME IS NOT DEFINED. 

THE RECORD DESCRIPTION FOR THE ABOVE FILE DESCRIPTION 
ENTRY IS MISSING. 

FILE NAME IS MISSING OR IN ERROR, 

THE RECORD PREPIX SPECIFIED IN THE SELECT PHRASE 
CONFLICTS WITH A LINAGE OR REPORT CLAUSE. 

WHEN THE GROUP DATA ITEM IS ASSOCIATED WITH LEVEL 88 
ITEMS, THE SUBORDINATE ITEMS MUST SE USAGE DISPLAY, 
UNRECOGNIZABLE ATTRIBUTE IN CD ENTRY IS ENCOUNTERED 
RW TIMES IS MISSING 

RW KEY IS MISSING 

RW LENGTH IS MISSING 

RW TOP OR BOTTOM IS MISSING. 

REDUNDENT BOTTOM PHRASE IS SPECIFIED FOR LINAGE CLAUSE. 
REDUNDENTFOOTING PHRASE IS SPECIFIED FOR LINAGE 
CLAUSE. 

A NON ZERO UNSIGNED INTEGER SHOULD APPEAR HERE. 

RW FOOITING IS MISSING. 

THE FOOTING INTEGER MUST NOT BSE GREATER THAN THE BODY 
INTEGER IN LINAGE CLAUSE , 

THE SUBJECT OF REDEFINES MUST NOT BE A FILLER ITEM 

IN THE GIVEN VALUE CLAUSE, SECOND VALUE IS NOT GREATER 
THAN FIRST. 

IN THE GIVEN VALUE CLAUSE» VALUE MAY BE LONGER THAN 
LENGTH OF DATA ITEM, 

IN THE GIVEN VALUE CLAUSE» UNSIGNED ITEM HAS SIGNED 
VALUE. 

IN THE GIVEN VALUE CLAUSEs» NUMERIC DATA ITEM HAS 
NON-NUMERIC VALUE. 

IN THE GIVEN VALUE CLAUSE, WON-NUMERIC DATA ITEM HAS 
NUMERIC VALUE. 
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INVALID CODE-SET SPECIFIED. 

AN UNSIGNED INTEGER SHOULD APPEAR HERE, 

WHEN FD HAS JIS CODE-SET» SIGNED NUMERIC DATA MUST HAVE 
SIGN IS SEPARATE CLAUSE. 

RECORD CONTAINS.~..DEPENDING ON IS SPECIFIED IN FO,» 3UT 
FILE-CONTROL ENTRY SPECIFIES FLR. 

THE SIGN CLAUSE MUST BE ASSOCIATED WITH AT LEAST ONE 
NUMERIC ITEM WITH PICTURE CONTAINING S. 

RECORD DESCRIPTION ASSUMED TO BE DATA RECORD FOR 
PRECEDING FD. 

A LABEL RECORD SPECIFIED IN THE FILE SECTION WAS NOT 
DEFINED BY A RECORD DESCRIPTION ENTRY. 

A DATA RECORD. SPECIFIED IN A DATA RECORD CLAUSE WAS NOT 
SUBSEQUENTLY DEFINED BY A RECORD DESCRIPTION ENTRY. 
LABEL RECORDS FOR H=RD» H-PR MUST BE STANDARD AND. ARE 
SO ASSUMED. 

OVERFLOW IN HIERARCHY TABLE: PROCESSING OF DATA 
DIVISION CEASES HERE! 

OVERFLOW IN INDEXNAME TABLE: PROCESSING OF DATA 
DIVISION CEASES HERE! 

RW "DEPENDING™ MISSING. 

IN COMPLIANCE WITH STANDARD: CODE-SET CLAUSE ON FD 
SHOULD BE ACCOMPANIED BY SIGN IS SEPARATE FOR 

SIGNED NUMERIC DATA. . 

WHEN FD HAS JIS CODE-SET,» DATA MUST BE USAGE IS 
DISPLAY. 

IN COMPLIANCE WITH STANDARD: CODE-SET CLAUSE ON FD 
SHOULD BE ACCOMPANIED BY ALL DATA USAGE IS DISPLAY. 
ONLY NUMERIC LITERALS ARE ALLOWED IN THE LINAGE 

CLAUSE FOR AN EXTERNAL FILE. 

DESTINATION TABLE MAY ONLY OCCUR 1 TIME IN THIS 
IMPLEMENTATION. 

A RESERVED WORD HAS BEEN USED AS A USER WORD OR 
DATA-NAME IS MISSING. 

REMAINDER OF VALUE OF CLAUSE IS SCANNED OFF 

ALL MAY NOT BE USED WITH A NUMERIC LITERAL. 

THIS RELEASE REQUIRES SEPARATE SIGN FOR SIGNED NUMERIC 
ITEMS. 

NOT SUPPORTED IN THIS RELEASEs WILL BE IGNORED. 

THIS RELEASE REQUIRES THAT DEFAULT COMP BE DISPLAY. 
THIS FEATURE IS NOT IMPLEMENTED. 

LABEL RECORD FORMAT NOT SUPPORTED BY THIS RELEASE. 

TOO MANY RECORD-NAMES IN DATA RECORDS. 

RESERVED WORD DIVISION IS MISSING. 

LEVEL NUMBER HIERARCHY INCORRECT 

THE NUMBER OF DIGIT PORTIONS SPECIFIED FOR THIS ITEM 
EXCEEDS THE MAXIMUM ALLIWED. 

THE RECORD CONTAINS CLAUSE SPECIFIES TOO LARGE A RECORD 
SIZE 

INCONSISTENT VALUES IN THE RECORD CONTAINS CLAUSE 
INCONSISTENT VALUES IN THE BLOCK CONTAINS CLAUSE 

USAGE IS COMP-1 OR COMP-2 DOES NOT ALLOW A PICTURE 
CHARCTER STRING WITH A SCALING FACTOR 

ONLY USAGE DISPLAY IS ALLOWED WHEN ORGANIZATION IS 
H-2000 OR ANSI. 

SIGN CLAUSE CANNOT APPLY TO ANY CONTAINED NUMERIC 
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DISPLAY ELEMENTARY ITEM CIF ANY). 

THE SIGN CLAUSE MUST BE ASSOCIATED WITH USAGE DISPLAY 
AND PICTURE CONTAINING S. 

THE INITIAL VALUE SPECIFIED IS UNRECOGNIZABLE. 

THE VALUE IS NOT IN THE RANGE ALLOWED FOR THE ITEM. 

TOO MANY ITEMS SUBORDINATE TO CONDITIONAL VARIABLE: 
VALUE SIZE WILL NOT BE CHECKED. 

THIS LEVEL-62 SPECIFIC FEATURE IS NOT IMPLEMENTED. 

THIS IS A LEVEL-62 SPECIFIC FEATURE. 

THIS FEATURE CFILLER AT GROUP LEVEL) IS A LEVEL-64 
FEATURE NOT INCLUDED IN THE CURRENT COMPILATION LEVEL. 
COMP-8 IS ASSUMED FOR THIS LEVEL -62 COMP-3 ITEM, 
REDUNDANT EXTERNAL CLAUSE IS DETECTED» ONLY ONE IS 
ALLOWED PER DATA ITEM. 

ONLY AORKING-STORAGE OR CONSTANT SECTIONS 91 OR 77 
ENTRIES WITHOUT REDEFINES CAN HAVE THE EXTERNAL CLAUSE. 
THIS FEATURE CMISSING DATA NAME) IS A LEVEL ~64 FEATURE 
NOT INCLUDED IN THE CURRENT COMPILATION LEVEL. 

THIS LEVEL “62 SPECIFIC FEATURE IS NOT IMPLEMENTED, 
SUBSEQUENT ENTRIES ARE ASSUMED TO SE WORKING-STORAGE. 
THE VALUE CLAUSE CANNOT BE USED TO DESCRISE A FLOATING 
POINT NUMBER. 

A FLOATING POINT NUMBER CANNOT BE A CONDITIONAL 
VARIABLE. 

THE REPORT WRITER IS NOT AVAILABLE ON YOUR SITEs PLEASE 
CONTACT SUPPLIER. 

THE SPECIFIED CODE-SET IS NOT ALLOWED WITH THE FILE 
ORGANIZATION, 

THE CODE-SET IS I8CD CLAUSE MAY ONLY BE USED FOR A TAPE 
FILE WHEN ITS ORGANIZATION IS H-20599 SEQUENTIAL. 
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EXPECTED WORD IS “SECTION”. 

PERIOD IS MISSING. 

RD ENTRY IS NOT GIVEN FIR A REPORT SPECIFIED IN REPORT 
CLAUSE IN FD. 

LEVEL INDICATOR "RD" OR LEVEL NUMBER "O01" SHOULD BEGIN 
FROM A AREA. 

THIS ITEM SHOULD BE WRITTEN IN ARES 8, 

SYNTAX CHECK DISCONTINUED FROM THIS ITEM, 

SYNTAX CHECK IS RESUMED. | 

END OF DATA DIVISION WAS DETECTED. 

NO SECTION CAN FOLLOW REPORT SECTION. 

LEVEL INDICATOR "RD" IS MISSING. 

LEVEL NUMBER "01" IS MISSING. 

LEVEL NUMBER OR LEVEL INDICATOR IS EXPECTED AFTER ".", 
ILLEGAL LEVEL NUMBER. 

LEVEL NUMBER UNMATCH. 

THIS CLAUSE IS ALREADY SPECIFIED. 

ILLEGAL WORD IN RD ENTRY. 

ILLEGAL WORD IN 01 ENTRY. 

ILLEGAL WORD IN REPORT ITEM DESCRIPTION. 

NON SIGNED INTEGER IS EXPECTED. 

QUALIFIER IS “MISSING AFTER "IN"/™OF", 

")" IS MISSING. 

INTEGER IS MISSING IN RELATIVE INDEXING. 

SUBSCRIPTED REFERENCE IS NOT ALLOWED. 

REPORT NAME CANNOT BE GJALIFIED. 

REPORT GROUP DESCRIPTION SHOULD BE WITHIN 3 LEVELS. 

NO SPACE AVAILABLE TO ACCOMODATE THIS REPORT 
DESCRIPTION, 

IMPLEMENTATION LIMIT - NOT ENOUGH SPACE AVAILABLE TO 
ACCOMODATE THIS REPORT DESCRIPTION. 

THIS FEATURE IS NOT IMPLEMENTED. 

OPERAND OF CONTROL CLAUSE IS “ISSING. 

DUPLICATE OPERAND IN CONTROL CLAUSE. 

FINAL SHOULD BE THE FIRST CONTROL. 

SYNTAX ERROR IN PAGE CLAUSE. 

"DETAIL™ IS MISSING. 

INTEGER IS MISSING IN PAGE LIMIT CLAUSE. 

INTEGER IS MISSING. 

ILLEGAL INTEGER. . 

RELATION BETWEEN INTEGERS WITHIN PAGE CLAUSE IS ILLEGAL 
REPORT WITH CODE CLAUSE AND REPORT WITHOUT CODE CLAUSE 
ARE MUTUALLY EXCLUSIVE WITHIN A FILE. 

THIS REPORT SHOULD HAVE THE CODE CLAUSE TOO, 

CODE LITERAL IS MISSING. 

LITERAL OF CODE CLAUSE SHOULD BE OF LENGTH 2. 

SYNTAX ERROR IN USAGE CLAUSE. 

NO PRINTABLE ITEM SUBORDINATE TO THIS ITEM WITH THE 
USAGE CLAUSE. 

ELEMENTARY REPORT ITEM WITH THE USAGE CLAUSE SHOULD BE 
PRINTABLE ITEM, 

SYNTAX ERROR IN TYPE CLAUSE. 

"HEADING" OR “FOOTING” IS MISSING. 

PH OR PF REPORT GROUP IS NOT ALLOWED FOR A REPORT 
WITHOUT PAGE CLAUSE. 
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RH» PHs PF OR RF REPORT GROUP SHOULD BE DEFINED AT MOST 

ONCE. 

DATA NAME OR "FINAL" IS MISSING WITHIN TYPE CLAUSE FOR 
TYPE CH/CF REPORT GROUP. 

TYPE CH/CF REPORT GROUP SHOULD NOT APPEAR IN A REPORT 
WITH NO CONTROL CLAUSE. 

CONTROL LEVEL CANNOT 3E DEFINED FOR THIS GROUP. 

CH OR CF FOR A CONTROL LEVEL CAN BE DEFINED AT MOST 

ONCE, 

"GROUP" IS MISSING. 

REPORT GROUP WITHOUT LIVE MAY HAVE NO NEXT GROUP 
CLAUSE. 

SYNTAX ERROR IN NEXT GROUP CLAUSE, 

ABSOULTE NEXT GROUP CLAJSE MAY NOT APPEAR IN REPORT 
WITHOUT PAGE CLAUSE. 

SYNTAX ERROR IN NEXT GROUP INTEGER. 

NEXT GROUP CLAUSE MAY NOT APPEAR IN PH OR RF, 

NEXT GROUP CLAUSE MAY NOT APPEAR IN PF. 

SYNTAX ERROR IN LINE CLAUSE. 

ABSOULTE LINE CLAUSE MAY NOT APPEAR IN REPORT WITHOUT 
PAGE CLAUSE. 

ILLEGAL LINE INTEGER. 

ABSOLUTE LINE CLAUSE SHOULD BE IN ASCENDING ORDER. 
ABSOLUTE LINE CLAUSE SHDJULD PRECEDE RELATIVE LINE 
CLAUSE. 

LINE CLAUSE WITH NEXT PAGE SHOULD SE THE FIRST LINE 
CLAUSE IN A GROUP. 

LINE ITEM SHOULD NOT 3E SUBORDINATE TO LINE ITEM, 

PF SHOULD BEGIN WITH ABSOLUTE LINE. 

LINE CLAUSE WITH NEXT PAGE MAY APPEAR ONLY WITHIN 30DY 
AND RF. 

SYNTAX ERROR IN PICTURE CLAUSE. 

ILLEGAL CHARACTER IN PICTURE STRING. 

JUSTIFIED CLAUSE CONFLICTS WITH OTHER CLAUSE WITHIN 
ERTS TLLEM. 

"ZERO" IS MISSING AFTER "BLANK". 

BLANK wHEN ZERO CONFLICTS WITH OTHER CLAUSE WITHIN 
THIS LITEM. 

GROUP INDICATF CONFLICTS wITH OTHER CLAUSE WITHIN THIS 
ITEM, 

COLUMN INTEGER IS MISSING. 

COLUMN ITFM WITHOUT LINE CLAUSE SHOULD BE SUBORDINATE 
TO: INE ITEM. 

THIS ITEM OVERLAPS PREVIOUS ITEM. 

REPORT RECORD HAS INSUFFICIENT SIZE TO PRINT THIS ITEM, 
SOURCE OPERAND IS MISSING. 


“VALUE OPERAND IS MISSING. 


LITERAL AFTER “ALL™ IS MISSING. 

VALUE OPERAND IS INCONSISTENT WITH ITEM CLASS. 

SUM OPERAND IS MISSING. 

SUM CLAUSE SHOULD BE SPECIFIED WITHIN CF. 

UPON JPERAND IS MISSING. 

RESET OPERAND IS MISSING. 

RESET CONTROL LEVEL CANNOT BE DEFINED FOR THIS ITEM, 
SUM OPERAND SHOULD NOT 3E REPORT ITEM OTHER THAN SUM 
COUNTER. 
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SUM COUNTER OPERAND IN SUM CLAUSE SHOULD BE DEFINED AT 
LOWER OR SAME CONTROL LEVEL. 

UPON OPERAND SHOULD BE DETAIL GROUP WITHIN SAME REPORT. 
RESET CLAUSE SHOULD SPECIFY HIFHER OR SAME CONTROL 
LEVEL. 

MULTI-DEFINED DATA NAME WITHIN SUM OR UPON OPERAND. 
SUM OPERAND FOR SUM CLAJSE WITH “UPON” SHOULD NOT BE 
SUM COUNTER. 

REPORT NAME IS MISSING. 

REPORT NAME IS NOT DEFINED IN ANY FD, 

DUPLICATE REPORT DESCRIPTION. 

TYPE CLAUSE IS MISSING IN REPORT GROUP DESCRIPTION, 
NO REPORT GROUP FOLLOWED AFTER RD ENTRY, 

NO BODY GROUP APPEARED WITHIN THIS REPORT. 

THIS REPORT GROUP VIOLATES UPPER LIMIT RULE FOR =, 
THIS REPORT GROUP VIOLATES LOWER LIMIT RULE FOR -. 
THIS +» GROUP CANNOT BE PRESENTED ON 1 PAGE. 

THIS REPORT GROUP VIOLATES NEXT GROUP RULE FOR oa, 

NO SU3ORDINATE ITEM FOR FORMAT<-2 ITEM. 

NO OPTIONAL CLAUSE WITHIN FORMAT~-2 ITEM, 

FORMAT~3 ITEM MAY HAVE ONLY ONE OF "SOURCE™ / “SUM™ / 
"VALUE". 

FORMAT-3 ITEM WITHOUT MANDATORY CLAUSE. 

NO ITEM CAN BE SUBORDINATE TO FORMAT~-3 ITEM, 
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EXPECTED WORD WAS "PROCEDURE", 

EXPECTED WORD WAS "DIVISION". 

EXPECTED WORD WAS "." OR “USING”. 

"USING" NOT ALLOWED WITH “INITIAL” CLAUSE IN DATA 
DIVISION. | 

ITEM IS NOT Q1 OR 77 LEVEL DATA ITEM DEFINED IN THE 
LINKAGE SECTION | 
NUMBER OF USING PARAMETERS NOT EQUAL TO LINKAGE SECTION 
COUNT. 

PERIOD EXPECTED AFTER THE PREVIOUS WORD 

SECTION HEACER EXPECTED HERE 

EXPECTED WORD WAS "USE" 

EXPECTED WORD WAS "BEFORE", "AFTER™,"FOR” OR "RANDOM" 
EXPECTED WORD WAS "INPUT", "OUTPUT", "“I-0", "EXTEND", 
OR A FILENAME, 

ITEM HAS "LABEL OMITTED" CLAUSE. 

EXPECTED WORD WAS "LABEL" 

ITEM IS NOT REPORT SECTION DATA-NAME 

ALPHASET-NAME IS UNKNOWN 

THIS FEATURE IS NOT IMPLEMENTED YET. IT HAS BEEN 
SCANNED OFF 

"END COBOL” IN WRONG PLACE. 

THIS DPTION IS NOT MEANINGFUL IN LEVEL-64. IT HAS BEEN 
SCANNED OFF. 

SUBSCRIPT VALUE IS OUT OF RANGE 

ITEM IS NOT PARAGRAPH OR SECTION DECLARATION 

ITEM IS NOT IDENTIFIER 

RECEIVING FIELD FOR THIS ITEM IS ALPHABETIC 

EXPECTED WORD WAS "SYSIN", "CONSOLE"s "DATE", DAY", 
"DAY-DF-WEEK"” OR MNEMONIC-NANE : 

ITEM IS NOT ELEMENTARY NUMERIC 

ITEM IS NOT ELEMENTARY NUMERIC OR IS NOT "TO" OR 
"GIVING". 

ITEM IS NOT ELEMENTARY VUMERIC OR EDITED ELEMENTARY 
NUMERIC 

ITEM IS NOT ALTERABLE PROCEDURE NAME 

ITEM IS NOT "TO" 

ITEM IS NOT NON-NUMERIC LITERAL OR IDENTIFIER 

ITEM IS NOT O1 OR 77 ITEM IN FILE WSs COMMUNICATION, 
OR LINKAGE SECTIONS 

ITEM IS NOT NON-SORT FILENAME 

ITEM IS NOT "REWIND". 

ITEM IS NOT "FROM", "=", OR "EQUALS". 

ITEM IS NOT “INPUT” OR "OUTPUT". 

ITEM IS NOT AN OUTPUT CDNAME 

ITEM IS NOT AN INPUT CDNAME 

ITEM IS NOT “KEY, 

ITEM IS NOT ALPHANUMERIC IDENTIFIER OR LITERAL 

ITEM IS NOT IDENTIFIER OR LITERAL 

ITEM IS NOT PROPER DEVICE 

EXPECTED WORD WAS "INTO" OR “BY”, 

"INVALID KEY™ SHOULD NOT BE USED FOR THE FILE. 

ITEM CANNOT BE USED IN A “GENERATE” STATEMENT. 

ITEM IS NOT PROCEDURE NAVE OR "DEPENDING". 

ITEM IS NOT ELEMENTARY NUMERIC INTEGER 
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ITEM IS NOT DECLARATIVE SECTION NAME 

ITEM IS NOT REPORT NAME . 

ITEM IS NOT IDENTIFIER WITH "USAGE IS DISPLAY” CLAUSE. 
ITEM IS NOT “TALLYING” JR “REPLACING”, 

ITEM IS NOT "FOR", 

ITEM IS NOT "ALL", "LEADING" OR "CHARACTERS". 


ITEM IS NOT NON NUMERIC LITERAL OR ELEMENTARY DATA ITEM 


WITH "USAGE IS DISPLAY" CLAUSE. 

ITEM IS NOT "ALL", “LEADING” OR "FIRST", 

ITEM IS NOT "BY", | 

ITEM IS NOT “SEQUENCE”, 

ITEM SIZE IS NOT EQUAL TO ITEM REPLACED 

ITEM IS NOT "GIVING", 

ITEM IS NOT “INPUT", "OUTPUT" OR "I-00", 

FILE IS NOT SINGLE REEL/UNIT WITH SEQUENTIAL 
ORGANIZATION. 

WRITE ADVANCING MNEMONIC-NAME MUST NOT BE USED FOR A 
FILE DESCRIBED WITH THE "LINAGE™ CLAUSE. 

ITEM IS NOT REFERENCE PROCEDURE NAME 

ITEM IS NOT "TIMES", 

ITEM IS NOT ELEMENTARY NUMERIC ITEM OR INDEX NAME 
ITEM IS NCT “FROM', 

ITEM IS NOT “UNTIL. 

NOT ACCEPTED IN DECLARATIVES. 

ITEM IS NOT "CONVERSION". 

FILE CANNOT HAVE VARIABLE SIZE RECORDS 

ITEM IS SAME AREA AS FILE NAME 

ITEM IS NOT “MESSAGE” OR “SEGMENT. 

ITEM IS NOT “INTO”. 

ITEM IS NOT RECORD NAME IN ASSOCIATES FILE 

ITEM IS NOT WITHIN SORT INPUT PROCEDURE RANGE 

ITEM IS NOT WITHIN SORT OUTPUT PROCEDURE “IAME 

ITEM IS NOT ASSOCIATED SORT FILE 

ITEM IS NOT “ALL™ OR IDENTIFIER. 

ITEM IS NOT IDENTIFIER OR INDEX NAME 

ITEM IS NOT "WHEN", 

THIS REFERENCE SHOULD BE A SECTION REFERENCE, 

ITEM IS NOT NON-SUBSCRIPTED AND NON-INDEXED WITH BOTH 
OCCURS AND INDEXED BY CLAUSE 

ITEM DOES NOT HAVE "KEY IS" CLAUSE 

EXPECTED WORD WAS "EOP", : 

ITEM IS NOT "ESI", "EMI", "EGI", OR IDENTIFIER 
MISPLACED REPORT VERB WITH REGARD TO DECLARATIVES. 
RULES FOR TRANSFER OF CONTROL SETWEEN PROCEDURFS 
ARE VIOLATED. 

ITEM IS NOT INDEX NAME IDENTIFIER OR POSITIVE INTEGER 
ITEM IS NOT INDEX DATA NAME OR ELEMENTARY INTEGER 
ITEM IS NOT INTEGER 

ITEM IS NOT SORT FILE. 

ITEM IS NOT "ASCENDING" IR "DOESCENDING"™. 

ITEM IS NOT DATA NAME IN ASSOCIATED FILE 

ITEM IS NOT "ON", "DESCENDING',.s "ASCENDING", "INPUT", 
"USING" OR DATA NAME, 

ITEM IS NOT “OUTPUT” OR "GIVING". 

ITEM DOES NOT HAVE "USAGE IS DISPLAY™ CLAUSE. 

ITEM IS NOT NON-NUMERIC IDENTIFIER OR LITERAL OR 
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"DELIMITED". 

ITEM IS NOT NON-NUMERIC IDENTIFIER OR LITERAL OR "SIZE" 
ITEM IS NOT FIXED LENGTH WITH "USAGE IS DISPLAY" CLAUSE 
ITEM IS NOT IDENTIFIER OR NON NUMERIC LITERAL OR "INTO" 
ITEM SHOULD BE ELEMENTARY WITH NO EDIT AND WITH "USAGE 
IS DISPLAY” CLAUSE. 

ITEM IS NOT ELEMENTARY NUMERIC INTEGER DATA ITEM 

ITEM IS NOT NUMERIC IDENTIFIER OR LITERAL 

ITEM IS NOT NUMERIC IDENTIFIER OR LITERAL OR "FROM",. 
PROGRAM SHOULD END WITH A ",", 

ITEM IS NOT ALPHANUMERIC . 

ITEA IS NOT "INTO" OR “DELIMITED”, 

ITEM CAN NOT BE USED WITHOUT "DELIMITED". 

ITEM IS NOT RECORD NAME IN NON SORT FILE 

ITEM IS NOT IDENTIFIER INTEGER OR MNEMONIC NAME 
"LINAGE™ CLAUSE IS MISSING IN ASSOCIATED FILE. 

NO "USE”™ APPLICABLEs SO "AT END” OR “INVALID” MANDATORY 
EXPECTED WORD WAS "(" 

EXPECTED WORD WAS ")" 

ITEM IS NOT A PROPER SUBSCRIPT 

ITEM SHOULD BE INDEX NAME 

ITEN IS NOT AN INDEX NAWE OR NOT CORRECT INDEX NAME 
ITEM IS NOT AN UNSIGNED INTEGER 

THE SIZE OF THE COMPOSIT OF OPERANDS EXCEEDS THE 
ALLOWED MAXIMUM IN THIS ARITHMETIC. VERB. 

EXPECTED WORD WAS "ALL", "LEADING" OR "UNTIL". 

ITEM IS NOT SINGLE CHARACTER LITERAL OR IDENTIFIER WITH 
"USAGE IS DISPLAY" AND CLASS CONSISTENT WITH IDENTIFIER 
EXPECTED WORD WAS "ALL">» "LEADING", "UNTIL™ OR "FIRST", 
EXPECTED WORD WAS "FIRST" . 

ILLEGAL ‘COMPARISONC(CNON-NUMERIC RELATION). 

INDEX-DATA ITEMS MAY ONLY BE COMPARED WITH INDEXES 

OR INDEX-DATA ITEMS, 

THIS POINT CAN NEVER BE REACHED DURING EXECUTION 

THIS STATEMENT MAY NOT 3E REACHED DUE TO THE PREVIOUS 
"STOP RUN", "EXIT PROGRAN” OR "GO TO", 

ITEM IS NOT “RUN” OR LITERAL 

ITEM IS NOT IMPERATIVE VERB 

EXPECTED WORD WAS “SECTION” COMPILER ERROR 

SYNTAX ERROR. CHECK AGAINST THE REFERENCE FORMAT. 
PARAGRAPH (OR SECTION) NAME MISSING 

MISSING SECTION HEADER AT BEGINNING OF "PROCEDURE 
DIVISION". 

ONLY PARAGRAPH (OR SECTION) NAME OR VERB ALLOWED HERE 
SENTENCE MUST BE IMPERATIVE, THIS ITEM MAKES IT 
CONDITIONAL 


"EXPECTED WORD WAS "OVERFLOW" 


EXPECTED WORD WAS "ERROR" 

EXPECTED WORD WAS “DATA”. 

THE ONLY ALLOWED LANGUAGE-NAME IS "ESCAPE", 
EXPECTED WORD WAS "END" 

EXPECTED WORD WAS "COBOL", 

ITEM IS NOT CDNAMEs IDENTIFIER» PROCEDURE NAME, 
FILENAME OR "ALL" 

ITEM ILLEGAL IN THE SCOPE OF AN "ENTER ESCAPE" 
STATEMENT. 
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EXPECTFEFS WORT WAS “SIZE” 

EXPECTED WORD WAS "NO" OR “LOCK”. 

SENTENCE MUST BE IMPERATIVE NOT CONDITIONAL 

THIS VERB MUST BE PRECEDED BY PROCEDURE DEFINITION. 
OVERLAPPING MAY OCCUR BETWEEN THIS RECEIVING ITEM AND 
SENDING ITEM 

THIS RECEIVING ITEM MAY BE TRUNCATED ON RIGHT 

NUMERIC NON-INTEGER SENDING FIELD NOT ALLOWED WITH 
ALPHANUMERIC RECEIVING FIELD 

SIGN OF SENDING ITEM WILL NOT BE MOVED TO THIS ITEM 
NUMERIC SENDING FIELD NOT ALLOWED Bit. ALPHABETIC 
RECEIVING FIELD. 

ALPHABETIC SENDING FIELD NOT ALLOWED WITH NUMERIC 
RECEIVING FIELD. 

ALPHANUMERIC EDITED SENDING FIELD NOT ALLOWED WITH 
NUMERIC RECEIVING FIELD 

NUMERIC EDITED SENDING FIELD NOT ALLOWED WITH NUMERIC 
RECEIVING FIELD 

POSSIBLE RIGHT TRUNCATION 

POSSIBLE LEFT TRUNCATION 

EXPECTED WORD WAS "NO", 

EXPECTED WORD WAS “REWIND”. 

ITEM IS NOT PART OF A CONDITION 

THIS RESULT MAY BE LEFT TRUNCATED. 

ILLEGAL RELATION BETWEEN INDEX AND EXPRESSION. 

THIS FEATURE - FEATURE» NOT INCLUDED IN THE CURRENT 
COMPILATION LEVEL. 

EXPECTED WORD WAS "INTO" OR “END” 

SYNTAX CHECK DISCONTINUED 

SYNTAX CHECK RESUMED 

"USE" NOT PERMITTED IN NON DECLARATIVE SECTION 

DATA NAMES AND INDICES NOT ALLOWED TOGETHER AS 
SUBSCRIPTS. 

IMPERATIVE VERB OR “NEXT SENTENCE” EXPECTED HERE, 
FILE ORGANIZATION SHOULD BE INDEXED-EXT. 

FILE IS NOT INDEXED 

COMPILER ERROR 

EXPECTED WORD WAS FIGURATIVE CONSTANT OR ALPHANUMERIC 
LITERAL ; 

ITEM IS NOT ALTERABLE IDENTIFIER 

EXPECTED WORD WAS “POINTER”, 

ITEM IS NOT INDEX NAME, INDEX DATA ITEM, OR ELEMENTARY 
ITEM DESCRIBED AS AN INTEGER 

EXPECTED WORD WAS "TO", "UP", "DOWN" OR AN INDEX NAME 
EXPECTED WORD WAS "COMPL”™ OR “COMPLEMENTARY”. 


ITEM IS NOT INDEX NAHE» INDEX DATA ITEM, INTEGER. 


GREATER THAN ZERO OR ELEMENTARY ITEM DESCRIBED AS AN 
INTEGER 


ITEM IS NOT INTEGER O02 IS NOT ELEMENTARY ITEM DESCRIBED 


AS A NUMERIC INTEGER 

EXPECTED WORD WAS “WHEN”, “AT™ OR "END", 

ITEM IS NOT ELEMENTARY ALPHABETIC, ALPHANUMERIC, OR 
NUMERIC EDITED OR A GROUP ITEM 

ITEM IS NOT FIGURATIVE CONSTANTs NONNUMERIC LITERAL OR 
IDENTIFIER 

COMPILER ERROR SUBROUTINE STACK OVERFLOWED 
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THIS IS A GROUP MOVE AND OPERANDS DO NOT HAVE THE 
SAME SIZE. 

ITEM IS NOT DATA-NAME 

FILE IS NOT SEQUENTIAL ACCESS OR DYNAMIC ACCESS 
ITEM IS NOT A ONE CHARACTER INTEGER WITHOUT AN 

OPERATIONAL SIGN 

DECLARATIVE PORTION CAN NOT BSE REFERENCED BY 
NON-DECLARATIVE PORTION AND VICE-VERSA 

EXPECTED WORD WAS "DUPLICATES". 

EXPECTED WORD WAS "REMOVAL". 

EXPECTED WORD WAS OUTPUT CD-NAME 

RELATION EXPECTED HERE 

THIS OPERAND SHOULD BE NUMERIC IDENTIFIER 

RELATION OR OTHER CONDITION OPERATOR EXPECTED HERE. 
")" MATCHING THIS "C(" IS LACKING. 

"C" MATCHING THIS ™)" IS LACKING. 

NON NUMERIC IDENTIFIER SHOULD PRECEDE THIS OPERATOR 

CD NAME EXPECTED HERE 

THIS OPERAND SHOULD BE NON-ALPHABETIC DISPLAY 
IDENTIFIER OR GROUP ITEM WITHOUT A SIGNED ELEMENT. 
ILLEGAL RELATION (BETWEEN TWO LITERALS). 

THIS ELEMENT IS NOT VALID BEGINNING OF CONDITION 
ITEM SHOULD BE A KEY OF THE FILE. 

VERB OR "NEXT SENTENCE” EXPECTED ERROR. 

EXPECTED WORD WAS "." OR "ELSE", 

OPERAND MISSING 

SUBJECT OF COMPARISON MISSING 

EXPECTED WORD WAS "SENTENCE". 

THIS ELEMENT IS NOT VALID CONDITION 

EXPECTED WORD WAS DATA-NAME (OR "TO" OR "THAN" IF 

APPROPRIATE). 

"DELETE" CANNOT BE APPLIED TO A SEQUENTIAL FILE. 
EXPECTED WORD WAS IDENTIFIER OR INPUT CD-NAME 
EXPECTED WORD WAS "COUNT". 

"WITH CONVERSION” IS AP?2LICABLE ONLY TO ELEMENTARY 

NUMERIC DATA. 

ITEM DOES NOT REFERENCE INPUT DEVICE 

ITEM DOES NOT REFERENCE OUTPUT DEVICE 

THIS "CONSTANT SECTION” ITEM MIGHT BE MODIFIED BY THE 

CALLED PROCEDURE. 

EXPECTED WORD WAS “LESS” OR."™<", 

FILE MUST BE RELATIVE WITH A RELATIVE KEY CLAUSE OR 
INDEXED AND MUST HAVE SEQUENTIAL OR DYNAMIC ACCESS 
EXPECTED WORD WAS "EQUAL", "GRATER" OR "NOT", 
EXPECTED ITEM WAS THE DATA NAME SPECIFIED IN THE 

RELATIVE KEY PHRASE OF THE ASSOCIATED FILE-CONTROL 
ENTRY 

ADDRESS OF THIS ITEM IS NOT THE SAME AS THE ADDRESS OF 
THE RECORD KEY 

EXPECTED ITEM WAS “INITIAL” OR A NON NUMERIC LITERAL OR 
ELEMENTARY DATA ITEM WHISE USAGE IS DISPLAY 

THIS "MOVE WILL ABORT DJBJECT CODE (SENDING 

LITERAL NOT DIGITS). 

EXPECTED ITEM WAS "BY", "ALL", NON-NUMERIC LITERAL- 

ALPHANUMERIC DATA ITEM OR ANY FIGURATIVE CONSTANT 

EXCEPT "ALL", 
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EXPECTED ITEM WAS "OR" OR “INTO”, 

THIS IDENTIFIER DOES NOT CONFORM TO THE COMPLEX RULES 
OF THE LANGUAGE STANDARD 

INTEGER OUT OF RANGE FOR ONE OR MORE INDEX NAMES 

THE RECORD NAME IN THIS STATEMENT MUST HAVE AN 
ASSOCIATED RECORD PREFIX OF "SSF", 

EXPECTED WORD WAS NON-NUMERIC LITERAL 

BOTH PROCEDURE-NAMES MUST BE IN THE SAME DECLARATIVE 
SECTION 

EXPECTED WORD WAS AN INDEX-NAMEs A POSITIVE INTEGER OR 
AN ELEMENTARY NUMERIC INTEGER DATA ITEM 

EXPECTED WORD WAS A NON-ZERO INTEGER OR AN ELEMENTARY 
NUMERIC INTEGER DATA ITEM 

EXPECTED WORD WAS AN INDEX-NAME, LITERAL OR AN 
ELEMENTARY NUMERIC DATA ITEM 

EXPECTED WORD WAS AN ELEMENTARY NUMERIC DATA ITEM OR A 
NON-ZERO LITERAL : 
THE IDENTIFIER FOLLOWING VARYING MUST BE AN ELEMENTARY 
NUMERIC INTEGER DATA ITEM 

SECTIONS IN THE DECLARATIVES “UST CONTAIN SEGMENT 
NUMBERS LESS THAN 50 

THIS PERFORM STATEMENT DOES NOT CONFORM TO THE COMPLEX 
RULES OF THE LANGUAGE STANDARD FOR SEGMENTATION 

THE SEGMENT NUMBER MUST BE AN INTEGER RANGING IN VALUE 
FROM 90 THRU 99 

THIS IDENTIFIER MAY NOT BE A CONSTANT SECTION ITEM. 

A USE PROCEDURE ALREADY EXISTS FOR THIS FILE 

A USE PROCEDURE HAS ALREADY BEEN ASSOCIATED WITH THIS 
PROCESSING MODE 

RECORD SIZE OF THIS FILE NOT COMPATISLE WITH 

RECORD SIZE OF THE "SD". 

LENGTH OVER 31 CHARACTERS . 

EMBEDDED BLANKS HAVE BEEN SKIPPED. 

FILE ORGANIZATION SHOULD BE SEQUENTIAL. 

FORBIDDEN USAGE OF ABBREVIATED RELATION. 

THIS FEATURE IS NOT IMPLEMENTED 

ITEM 1S NEITHER "PROCEDJRES™” NOR A DATA-NAME, 

THE FILE IS DESCRIBED WITHOUT SUBORDINATE O1 ENTRY 
EXPECTED WORD WAS "," 

SENDING AND RECEIVING FIELDS OVERLAP 

IMPLEMENTATION RESTRICTION: TOO MANY NESTED IF 
STATEMENTS AND COMPOUND CONDITIONS 


IMPLEMENTATION RESTRICTION: TOO MANY NESTED ARITHMETIC 


EXPRESSIONS. 

THE WORD "TO" OR AN INTEGER NUMERIC DATA ITEM OPERAND 
WAS EXPECTED. 

THE WORD "TO", AN INDEX DATA ITEM OPERAND OR AN INTEGER 
NUMERIC DATA ITEM OPERAND WAS EXPECTED. 

THE ITEM SHOULD BE EITHER AN INDEX DATA ITEM OR AN 
INDEX. 

ITEM IS NEITHER "ON" NOR “OFF”, 

ITEM IS NOT A SWITCH NAME 

ITEM SHOULD BE "WHEN", “." OR “ELSE”. 

ITEM IS NEITHER "4", "=", "C%, A NUMERIC LITERAL 
OR A NUMERIC ELEMENTARY DATA ITEM, 

START STATEMENT CONTRADICTS FILE ORGANIZATION AND 
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ACCESS 

ALTER VIOLATES SEGMENTATION RULES 

THIS ITEM SHOULD BE A KEY OF THE SEARCH TABLE 

THIS KEY HAS ALREADY BEEN REFERENCED IN THIS 

"SEARCH ALL". 

AT LEAST ONE KEY REFERENCE IS MISSING IN THE "WHEN 
PHRASE” OF A "SEARCH AL_". 

THIS IDENTIFIER DOES NOT COMPLY TO THE RULE ON USAGE 
OF FIRST INDEX IN A "SEARCH ALL” CONDITION. 
H_2000 RANDOM FILES SHOULD NOT BE OPEN IN OUTPUT MODE 
WHEN THE ACCESS IS SEQUENTIAL 

ITEM IS NOT "OF", 

"SSE" IS IMPLIED FOR THE CORRESPONDING FILE. 
COMPARISON BETWEEN NUMERIC AND NONNUMERIC ITEMS. 
MOVING NONNUMERIC TO NUMERIC. 

NEITHER "STOP RUN” NOR "EXIT PROGRAM" WAS MET. 
PREVIOUS CALLS TO THE SAME PROGRAM HAD A DIFFERENT 
NUMBER OF ARGUMENTS. 

ABNORMAL ARGUMENTS IN A “CALL” TO "H_CBL_UGETG4" 

(2 MANDATORY COMP-1 ARGJMENTS). 

OLD TEMPORARY PRINTER CHANNEL SPECIFICATION USED 
INSTEAD OF MNEMONIC NAME. 

THIS FEATURE IS LEVEL-62 SPECIFIC. THE ITEM IS IGNORED. 
LEVEL 62 SPECIFIC FEATURE» NOT IMPLEMENTED. 

THE RESULT IS UNPREDICTABLE WHEN A FILE THAT IS NOT 
EXTERNAL IS PASSED AS ARGUMENT. 

THE USE OF “TERMINAL” IS NOT AVAILABLE ON YOUR SITE, 
PLEASE CONTACT SUPPLIER. 

EXPECTED WORD WAS "CONSOLE". 

COMP=9 OR COMP-10 ITEM SHOULD NOT APPEAR IN THIS 
CONTEXT. 
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AMBIGUOUS UNGUALIFIED REFERENCE. 

ITEM NOT DECLARED. 

AMBIGIOUS QJALIFIED ITEM 
PARAGRAPH NAME NOT FOUND IN THE CURRENT SECT 
PARAG? APH NAME MULTIPLY DECLARED WITHIN ITS 
SECTION. 

QUALIFIED NAME MULTIPLY DECLARED WITHIN ITS CONTAINING 
GROUP ITEM. 

BAD COMPONENT IN SUBSCRIPT. 

NUMERIC LITERAL» DATANAMEs, OR INDEX NAME EXPECTED HERE. 
NOMERTC LITERAL EXPECTED ‘HERE. 

INCOHPLETE QUALIFICATION. DATA NAME EXPECTED HERE. 

TOO MANY QUALIFIERS IN THIS REFERENCE. 

COMPILER ERROR, NAME-STACK OVERFLOW FOR THIS 

REFERENCE. 

COMPILER ERROR, SUBSCRIPT-STACK OVERFLOW AT THIS ITEM, 
AM IDENTIFIER MUST NOT APPEAR “ORE THAN ONCE IN & USING 
PEKERASE. 

IDENTIFIER MUST HAVE AN OCCURS CLAUSE IN ITS 
DESCRIPTION. 

IDENTIFIER MUST HAVE AN INDEXED BY CLAUSE IN ITS 
DESCRIPTION. 

IDENTIFIER MUST HAVF A <eEY IS CLAUSE IN ITS 
DESCRIPTION, 

LDEMTIPPER EXPECTED HERE. 

REPLACEMENT ABORT. NAME TABLE SUFFER CONTAINS NO NEW 
ENTRIES FOR TWO CONSECUTIVE LOADS. 

MYST SE AN UNSIGNED INTEGER 

RNS? PIRAPOS REL ey BELONG. TD AGRECORD OF THE FILe 12 
WHICH IT IS A KEY 
AUST Se AL PHASUITER 


at] 
is 


1dt. 
CONTAINING 


Tv 
a 
- 
- 


C &§ NOT VARTABLE LENGTH 

TST SELONG. TO. & CRCORE wSSOCTATED TO. PHE PILE 
STATUS CAN ONLY GE 2 Ch ALPHANUTFRIC & NOT IN FILE, 
CONSTANT, LINKAGE SECTIONS 

STATUS KEY 2 ITEM IS NOT CONFORHED TO ANST STANDARD. 
RENAMS OBJECT CANNOT HAVE AN OCCURS CLAUSE IN ITS DATA 
DESCRIPTION NOR CAN IT 3E SU3BDRDIWNATE TO ONE 

A 66 -EVEFL ENTRY CANNOT RENAME ANOTHER 66 LEVEL ENTRY 
WOR CAN IT RENAME A 77, 8&8, JR OF LEVEL ENTRY 

RENARE OBJECT? AND OSJECT2 AREA RANGE CONFLICT 

KEY FIELD STOO: STALL 

KEY LIC VALUE TOO LARGE 

KEY LOC IS OUTSIDE OF THE RECORD AREA 

CLASS NOT ALPHANUMERIC 

ITEM NOT ELEMENTARY 

FIELD TOO SHORT FOR RELATIVE KEY 

FIELO TOO LONG FOR RELATIVE KEY 

THE DATA-NAME REPLACED IN THE DEPENDING ON CLAUSE OF 
OCCURS AUST NOT TO SE SPECIFIED Ii THE RANGE OF THE 
OCCURS 

ILLEGAL REFERENCE 

ALTERNATE KEY CANNOT HAVE THE SAME OFFSET AS THAT OF 
THE RECORD KEY OR ANY OTHER ALTERNATE KEYS 

THIS REPORT GROUP HAS ALREADY BEEN SPECIFIED IN 
PREVIOUS “USE BEFORE REF IRTING” CLAUSE. 
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Oo & OW & 


LA Led Ut Les 


i~ Let UA LA 


hed tad 


CONTROL ITEM MUST BE DATA WANE. 

CONTROL ITEM CANNGT BE OF VARIASLE LENGTH, 
CONTROL ITEM CANNOT HAVE AN OCCURS CLAUSE NOR BE 
SURBORDINAYED TO A GROUP WHICH CONTAINS AN COCURS 
CLAUSE. 

REPORT ITEM CAN ONLY BE USED FOR SUM COUNTER 
REFERENCE GUALIFICATION, 

THIS FEATURE IS A = FEATURE NOT INCLUDED IN TRE 
CURRENT COMPILATION LEVEL. 

SECONDARY KEY EXCFEDS 33 CHARACTER, 

SECONDARY KEY CANNOT HAVE THE SAISE OFFSET AS THAT 
REACORD KEY. 

INVLID CONTROL ITEM, 

USE FOR DEBUGGING MUST NOT REFERENCE A USE FOR 
DEBUGGING PROC NAME, 

NAMED MORE THAN ONCE IN JSE FOR DEBUGGING. 
ILLEGAL KEY REFERENCE 

ONLY CATA~NAME TS ALLOWED AS A PARAMETER, 

TOO LONG LITERAL. 


OF 


™E NE I Ab AE ON od ~J 


~ 


Red 


& tab ee LA LA UN Ga Gs 


Fed 


CORRESPONDING OPTIGN RESULTS A NULL MATCH. ITEMS 
ARE 66 88 OR WHICH CONTAIN GR SUAORDINATE RED 


SCCURS OR USAGE IS INDEX ARE NOT CONSTOERFC. 


ITEM VOT a 

EXPECTED wORD 'a" : 

DATANAMES ANG INDEXNASES tuoT ALLOWED TOGETHER AS 
SUSSCRIPTS . 

ITEM IS NOT ELEMENTARY VUMERIC INTEGER. 
ITEM IS NOT ALTERABLE IDENTIFIER, 

WHEN EXECUTING IN SEBUGGING HOGE, THE $uSSCRIP 
IN DEBUG ITEM WILL BE THAT AFTER THE STATEMENT 
EXECUTED. 

THIS FEATURE IS A LEVEL-o4& FEATURE NOT INCLUDED I! xE 
CURRENT COMPILATION LEVEL. 

DATANAWE BESCRIPTION COVTAINS “ta” 

COMPILER ERROR: UNEXPECTED TOKEN It) CORRESPINDING 
OPERAND. 

HIERARCHY ERROR IN CORRESPONDING JPERAND 

COMPILER ERROR: PREMATURE END OF FILE DURING CORR -TIO 
INITIALIZE STATEMENT 

OPERAND OF CORRESPONDING MuST SE GROUP NATE 

ITEM I$ NOT POSITIVE INTEGER LITERAL. 

RELATIVE INDEXING REQUIRES UNSIGNED INTEGER LITERAL 
OPERAND OF INITIALIZE MAY NOT HAVE OCCURS DEPENGING ON. 
ILLEGAL OPERAND Itt THE REPLACING CLAUSE OF INITIALIZE, 
INITIALIZE STATEMENT RESULTS IN NO MATCH, 

INITIALIZE SENDING OPERAWD NOT LEGAL CATEGORY 
IMPLEWENTATIGON RESTRICTION: T993 MANY OPERANDS FOR THIS 
STATEMENT. 

IMPLEMENTATION RESTRICTION: THIS STRUCTURF H43 TOO 

MANY DATA DESCRIPTIONS SUSGRDINATE TO IT. 
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-100 


oh 
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PRINT PHASE WORKING SPACE EXHASTEDs» PART OF DIAG 
MESSEGES WILL NOT BE PROCESSED. 

NOT YET IMPLEMENTED, 

TOKEN AREA OVERFLOW. 

ALTER AREA OVERFLOW. 

PERFORM TABLE OVERFLOW. 

ALLOC-TABLE OVERFLOW. 

EGADG ERROR. 

EGADG1 ERROR. 

EGSTOS ERROR. 

EGBUTA ERROR. 

LITERALS WILL NOT BE COMPARED. 

ALTER ALLOCATION ERROR. 

BAD NJMBER OF PARAMETERS IN H_CBL_UGETG4, 
UNEXPECTED COMPARISON, 

ABBREVIATED CONDITION ERROR. 

EGGDBG ERROR, 

PERFORM ALLOCATION ERROR. 

PERFORM ERROR, 

BR LOCK ERROR, 

ALL REGISTERS LOCKED. 

VARIASLE LENGTH ERROR. 

MOVE ERROR. 

GR ALLOCATION ERROR, 

FLGR ERROR -, 

GR LOCK ERROR m, 

SEGFRENT NUMSER ERROR, 

ERRONEOUS NUMBER OF PARANHETERS. 

WORK SPACE NOT AVAILABLE TO 3UILD PCF TABLES. 
TOO MANY DATA/PROCEDURE NAMES TO BUILD PCF TABLES. 
COMPILER ERROR: UNKNOWN COMPILER GENERATED DATA-NAME: 


7 e 


SEGHENT NUM3SER LI“YIT OF 128 HAS BEEN EXCEEDED FOR CODE 
SEGMENTS. GATHER SECTIONS, 

CULIE IS NOT A CU LIBRARY. 

CULTR TS FULL» 

I/O ERROR ON CULIB. 

SEGMENT NUMBER LIAIT OF 128 ISN'S HAS BEEN EXCEEDED. 
INCREASE SEGMENT SIZE. 

IMPLEMENTATION RESTRICTION. NO ROOM ENOUGH TO HOLD 

- TAGS. 

IMPLEMENTATION RESTRICTION. NO ROOM ENOUGH TO HOLD 
SORT TABLE. INCREASE DATA SEGMENT SIZE. 

COMPILER ERROR. INVALID TAG NUMBER -, 

COMPILER FRROR. DUPLICATE DEFINITION FOR TAG NUMBER 9&, 


COMPILER ERROR. INVALID EQUIVALENCE OF TAGS oa, 


COMPILER ERROR. TAG NUMBER > NOT DEFINED. 
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UNRECOVERABLE DIFFICULTY 

UNRECOVERABLE DIFFICULTY 

UNRECOVERABLE DIFFICULTY 

UNRECOVERABLE DIFFICULTY 

UNRECOVERABLE DIFFICULTY 

UNRECOVERABLE DIFFICULTY 

UNRECOVERABLE DIFFICULTY 

UNRECOVERABLE OIFFICULTY 

UNRECOVERASLE DOIFFICULTY 

UNRECOVERABLE DIFFICULTY 

UNRECOVERABLE DIFFICULTY 

UNRECOVERABLE DIFFICULTY 

UNRECOVERABLE DIFFICULTY 

UNRECOVERABLE DIFFICULTY 

UNRECOVERABLE DIFFICULTY 

UNRECOVERABLE DIFFICULTY 

UNRECOVERABLE DIFFICULTY 

UNRECOVERABLE DIFFICULTY 

UNRECIVERABLE DIFFICULTY 

UNRECIVERABLE DIFFICULTY 

UNRECOVERABLE DIFFICULTY 

UNRECOVERABLE DIFFICULTY 

UNRECOVERABLE DIFFICULTY 

UNRECOVERABLE DIFFICULTY 

UNRECOVERABLE DIFFICULTY 

UNRECOVERABLE DIFFICULTY 

UNRECOVERABLE DIFFICULTY 

UNRECOIVERABLE DIFFICULTY 

UNRECOVERABLE DIFFICULTY 

UNRECOVERABLE DIFFICULTY 

UNRECOVERABLE DIFFICULTY 

UNRECOVERABLE DIFFICULTY. 

UNRECOVERABLE DIFFICULTY. 

ILLEGAL DSEGMAX OPTION : ‘x°. 

ILLEGAL PSEGMAX OPTION 3; ‘'s‘. 

SPECIFIED DSEGMAX OPTION EXCEEDS 4M BYTES. 
SPECIFIED PSEGMAX OPTION EXCEEDS 32K BYTES. 
ILLEGAL RESTRICT OPTION: ‘s'. 

UNRECOVERABLE DIFFICULTY DUE TO SYSTEM ERROR. 
IMPOSSIBLE TO OPEN -, 

IMPOSSIBLE TO CLOSE >. 

UNRECOVERABLE DIFFICULTY DUE TO SYSTEM ERROR. 
COMPILER ERROR: ON SEQUENTIAL ~~. FILE IS OPENED INPUT. 
COMPILER ERROR: ON SEQUENTIAL -~. FILE IS OPENED OUTPUT. 
COMPILER ERROR: ON SEQUENTIAL ~~. FILE IS’ CLOSED. 
COMPILER ERROR: ON SEQUENTIAL -. FILE IS EXHAUSTED. 
‘COMPILER ERROR: ON SEQUENTIAL 7. INVALID FILE POINTER. 
COMPILER ERROR: ON SEQUENTIAL PUT. INVALID LENGTH(4). 
so 1S FULL. 

BACKING STORE IS FULL. JSE WORK FILES FOR LARGE 
PROGRAMS. 

I/O ERROR ON COMPILER wORK FILES. 

COMPILER ERROR ON DIRECT =~. FILE IS OPENED. 
COMPILER ERROR ON DIRECT -. FILE IS CLOSED. 
COMPILER ERROR ON DIRECT 7. FILE IS EXHAUSTED. 
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COMPILER ERROR ON DIRECT SPUT. INVALID LENGTHIA), 
COMPILER ERROR ON COMMON FILE. INVALID KEY NUMEFR{4), 
TMPLEWENTATION RESTRICTION, TOS MANY NAME TN AN 44, 
COMPILER ERROR ON DIRECT FILE, JNARLE TO PERFORM 1/9 
BEFORE FIRST BLOCK. 

COMMON FILE OVERFLOW. 

UNRECOVERAGLE DIFFICULTY DUE TO SYSTE4 ERROR, 
COMPILER ERROR ON DIRECT FILE. BLOCK NUMBER ~ ALREADY 
BLOCKED. 

COMPILER ERROR ON DIRECT UNULOCK, FILE IS NOT SLOCKED, 
BACKING STORE IS FULL. T20 MANY JOHNS RUNNING 
CONCURRENTLY. | 

1/0 ERROR ON DIRECT FILES. 

COMPILER ERROR ON DIRECT 3. INVALID FILE POINTER. 
COMPILER FRROR ON DIRECT SGET. INVALID LENGTH(4), 
COMPILER ERROR ON DIRECT DPUT. INVALID LENGTH(+). 
COMPILER ERROR ON DIRECT DGET. INVALID LENGTH(9). 
COMPILER ERROR ON DIRECT DREAD. INVALID LENGTH(A). 
INVALID + FILE. | 


B= 34 


APPENDIX C 


SLINKER ERROR MESSAGES 


C-O0l 


108 


112 


112 


12 


112 


201 
202 


203 
204 
205 
206 
207 
208 
209 
210 
2.11 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 


222 


223 


224 
225 


ERROR MESSAGES ISSUED BY THE STATIC LINKER 


ERROR IN LMNAME PAPAMETER8 When a lmname is *, the 
WHEN COMFILE OR COMMAND IS MISSING lmname’s are listed in a 
command or comfile parameter. 


ERROR IN COMFILE PARAMETER? 
COMFILE MAY NOT APPEAR IN THE PRESENT 
CONTEXT (WHEN COMFILE IS PRESENT) 


ERROR IN COMFAC PARAMETER? 
COMFAC MAY NOT APPEAR IN THE PRESENT 
CONTEXT (WHEN COMFILE OR COMMAND IS PRESENT) 


ERROR IN ENTRY PARAMETER? 
ENTRY MAY NOT APPEAR IN THE PRESENT 
CONTEXT (WHEN COMFILE OR COMMAND IS PRESENT) 


ERROR IN PRTLIB PARAMETER? 
PRTLIB MAY NOT APPEAR IN THE PRESENT 
CONTEXT (WHEN PRTFILE IS PRESENT) 


MORE THAN 4 FATAL ERRORS ONLY THE FIRST 4 FATAL ERRORS ARE DISPLAYED! 
LINKER TABLE INITIALIZATION 


FAILURE RC=O0000000 PTR=X XXXXXXX 
ERROR DURING OPEN RC=XXXXXXXX (LIBRARY TYPE) 
BUILD 4? 
OPENS IN ad 
OPEN OUT os 
OPEN UPDATE of 
PUTX of 
CLOSES of 
NOTE od 
POINT ad 
GET iad 
PUT ad 
CLOSE 7 


MORE THAN 64 PROCESSES 

SYNTAX ERROR IN LM NAME 

ENTRY POINT NOT FOUND 

LINKER TABLE OVERFLOW RC=00000000 PTR=X XXXXXXX 

SEGMENT TABLE OVERFLOW 

ERROR DURING CHANGE NAME RC=XXXXXXXX (LIBRAPY TYPE) 

CU INCORRECTLY FORMATTED RC=(REC#)(LIB) UNEXPECTED NB OF RECORDS 


ENTRY SEGMENT OVERFLOW NO MORE ENTRIES ARE AVAILABLE IN THE ENTRY 
(IMPLEMENTATION RESTRICTION) SEGMENT. THE ENTRY SEGMENT IS LIMITED TO 
256 ENTRIES 


NO VALID SM NAME HAS BEEN THE SM WHERE THE LKU IS TO BE STORED IS NOT 
FOUND DEFINED 


NO VALID LKU ENTRY=POINT 


CONFLICT BETWEEN LKU AND THE LINKER TRIES TQ REPLACE A LKU NOT DES~ 
EXISTING SUBFILE CRIBED IN THE SM SUBFILE 


Cr 02 


226 


227 


230 


23) 


232 


233 


401 


402 


403 


404 


405 


406 


407 


408 


QUTPUT LIBRARY OVERFLOW 


SM DOES NOT EXIST, PLEASE 


SPECIFY ITS STN AND ESSTE 


INPUT LIBRARY NOT 
A CULIB 


OUTPUT LIBRARY NOT 
A LMLIB 


OUTPUT LIBRARY NOT 
A SMLIB 


PRTLIB LIBRARY NOT 

A SL LIBRARY 

SM ALREADY EXIST 
PLEASE DOES NOT 
SPECIFY ITS STN/ESSTE 


ACCESS VIOLATION TO 
SYS.HSMLIB 


UNKNOWN KEYWORD 


ILLEGAL MULTIPLE PARAMETER 


SYNTAX ERROR 


PARAMETER ERROR 


OPTION ALREADY APPEARED 


CU NOT FOUND IN LIBRARIES 


THE SPECIFIED CULIB IS 
NOT ASSIGNED 


ILLEGAL PARAMETER ACCORDING 


TO LINKTYPE 


TOO MANY VACANT ENTRIES 
REQUESTED 


AVAILABLE ENTRIES LEFT IN SEG. 


NOT ENOUGH SPACE IN THE OUTPUT LIBRARY TO 
STORE THE PRODUCED MODULE. 


AN ASSIGNED INPUT LIBRARY IS NOT 
A CULIB (TYPE, RECFORM, RECSIZE) 
(SEE LIBMAINT GUIDE) 


THE ASSIGNED OUTPUT LIBRARY IS NOT 
A LMLIB (TYPE, RECFORM, RECSIZE) 
(SEE LIBMAINT GUIDE) 


THE ASSIGNED OUTPUT LIBRARY IS NOT 
A SMLIB (TYPE, RECFORM, RECSIZE) 
(SEE LIBMAINT GUIDE) 


SELF EXPLANATORY 


SELF EXPLANATORY 


IT IS FORBIDDEN TO LINK IN 
SYS.HSMLIB 


UNEXPECTED OPTION OR UNKNOWN KEYWORD... 
THIS ILLEGAL STATEMENT IS IGNORED. 


A STATEMENT SUCH AS ENTRY,REALLSEG... HAS 
APPEARED MOTE THAN ONCE? THE FIRST SPECI- 
FICATION IS USED 


SYNTAX ERROR ON A STATEMENT DURING SYNTAX 
ANALYSIS8ILLEGAL CHARACTERS FOR A PARAMETER 


_ eeelHE STATEMENT IS IGNORED. 


ERROR IN A PARAMETERt INTEGER VALUE INSTEAD 
OF AN IDENTIFIER, ILLEGAL VALUE, IMCOMPATI- 
BILITY WITH A PRECEEDING VALUE... 

THIS SPECIFICATION IS IGNORED. 


TWO PARAMETERS CONCERN THE SAME OBJECT IDEN- 
TIFICATION (MSEGAT,PLACE...) OR THE SAME 
FIELD (STACKI...) THE IST SPECIF. IS USED 


A STATEMENT SUCH AS GATE, MSEGAT... REFERS 
TO A CU THAT DOES NOT EXIST IN CU LIBRA- 
RIES (IMPLICIT OR SPECIFIED VIA $LINKER). 
THE STATEMENT IS IGNORED. 


A STATEMENT SUCH AS REPLACE OR FETCH OR INCLUDE 


SPECIFIES A CU LIBRARY THAT IS NOT ASSIGNED. 


THE SPECIFIED PARAMETER CANNOT BE USED WITH 
THIS TYPE OF LINKAGE (ELM OR LKU) EXs 
LKUENT CANNOT BE USED WITH LINKTYPE2USER 


THE USER (THRU DATA MANGMT OR VACSEG) ASKS 
FOR MORE VACANT ENTRIES THAN THERE ARE 
TABLE. 
REMEMBER THAT AN ST IS LIMITED TO 256 


ENTRIES. 


C03 


1002 


1003 


1004 


1401 


1402 


1403 


1404 


1405 


1406 


1407 


1408 


1601 


1602 


1603 


1605 


1606 


1607 


1801 
1802 


1803 


INITSIZE IN SOME SEGMENT 
EXCEEDED MAXSIZE 
SYMBMAP RECORD > 32K 


NOLINK AND INCLEXT FOR A 
GLOBAL DATA, 


PRIVPECT# 
NO MATCHING DEF 


PRIVPECTs 
MATCHING DEF IS A SYSDEF 


PRIVPECT® 
INVALID MATCHING DEF 


PRIVPECT8 
IMPROPER MATCHING DEF 


EXCEPTION? 
NQ MATCHING DEF 


EXCEPTION’ 
MATCHING DEF IS A SYSDEF 


EXCEPTION? 

INVALID MATCHING DEF 
INCLUDE? 

NO MATCHING DEF 


ENTRY 8 
NO MATCHING DEF 


ENTRY 3 
MATCHING DEF IS A SYSDEF 


ENTRY 8 
IMPROPER MATCHING DEF 


ENTRY 8 
REALLOC RULES VIOLATION 


ENTRY 3 
INVALID MATCHING DEF 


ENTRY ALREADY USED IN ENTRY 
SEG MENT 


LARGE SEGMENT 


SHARE LEVEL INCONSISTENT 
WITH ASSIGNMENT 


SHRLEVEL=3 FOR NOT ASSIGNED 
INCLUDED SEGMENT 


INCLEXT IGNORED 


AT LEAST ONE SEGMENT HAS BEEN DECLARED WITH 
AN INITSIZE GREATER THAN MAXSIZE. THE MAXSIZE 
IS ADJUSTED TO INITSIZE 


SYMBOLIC PATCHING IMPOSSIBLE. 


THE NAME REFERENCED IN PRIVPECT PARAMETER 
HAS NOT BEEN FOUND IN LIBRARIES. 


THE NAME REFERENCED IN PRIVPECT PARAMETER 
IS A SYSTEM NAME. 


THE FETCHED SYMDEF HAS NO SIN,STE,D VALUE 
ASSIGNED BECAUSE ERROR OCCURRED WHEN 
PROCESSING IT. 


NAME REFERRED IN PRIVPECT STATEMENT IS 
NEITHER A PROCEDURE NAME NOR A SEMAPHORE 
NAME. 


THE NAME REFERENCED IN EXCEPTION 
PARAMETER HAS NOT BEEN FOUND IN LIBRARIES. 


THE NAME REFERENCED IN EXCEPTION 
PARAMETER IS A SYSTEM NAME. 


THE FETCHED SYMDEF FOR EXCEPTION EITHER 
HAS NO SIN,STE,D VALUE ASSIGNED OR 
IS NCT A PROCEDURE DESCRIPTOR SYMDEF. 


THE NAME QEFERENCED IN INCLUDE PARAMETER 
HAS NOT BEEN FOUND IN LIBRARIES. 


TASK ENTRY POINT HAS BEEN FOUND 
IN LIBRARIES. 


THE NAME DEFINED AS AN ENTRY POINT IS A 
SYSTEM NAME. 


THE SYMDEF FOUND FOR ENTRY POINT IS A 
DATA SY*DEF. 


ENTRY POINT IS IN A PROCESS PRIVATE SEGMENT. 


THE SYMDEF FOUND FOR ENTRY POINT HAS 
NO SIN,STE,D VALUE ASSIGNED BECAUSE AN 
ERROR OCCURRED WHILE PROCESSING THE 
SYMDEF OR JCL PARAMETERS. 


THE ENTRY SPECIFIED IN ESINDEX IS ALREADY 
USED. 


C-U04 


1804 


1805 


2001 


2201 


2202 


2203 


2204 


2205 


2206 


2207 


2401 


2402 
2403 


2404 


2405 


ATTEMPT TO ASSIGN PROC.PRIV 
ATE SEG. AMONG INCLUDED SEGS 


ALREADY USED ENTRY IN 
ASSIGNMENT 


SOME INIT.VALUE RECORDS 
NOT USED 


SEG REFERRED TO THRU ISN 


AND NAME IN JCL 


INVALID SHARE LEVEL 


SIZE INCONSISTENT WITH 
A PREVIOUS DEFINITION 


ATTRIBUTES INCONSISTENT 
WITH A PREVIOUS DEFINITION 


JCL GATE FOR NON GATEABLE 
CU 


SHARE LEVEL CONFLICT CAFTER 
PREV. USE OF PLACE) 


SIZE SPECIFICATION (MSEGAT) 
EXCEEDED 


EXISTS AS SYSDEF 


REALLOC RULES VIOLATION 
A PREVIOUS REF FOR THIS 


DATA STATED? DEF CANNOT 
EXIST 


ATTRIBUTES INCONSISTENT 
WITH A PREVIOUS DEFINITION 


ALL ENTRY POINTS MSUT BE SI- 


MULTANEOUSLY DECLARED NOLINK 


THE CU CONTAINS MORE INITIALIZATION VALUES 
THAN THE NEEDS EXPRESSED BY THE SYMDEFS. 


>TINED TWO SETS OF 


Wie Bw 


THE USER HAS DEFINED ATTRI- 
BUTES FOR A SEGMENT IN JCL. IN THE IST, 
THE SEGMENT HAS BEEN REFERENCED THRU 

ISN, IN THE SECOND, IT HAS BEEN REFERENCED 
THRU NAME. WHEN THE SAME ATTRIBUTE 

APPEARS IN BOTH DEFINITIONS, THE LAST 
DEFINED VALUE IS USED. 


THE SHARABILITY LEVEL FOR A SEGMENT 
IS EQUAL TO O OR 1. 


THE SEGMENT DEFINITION IN THE CURRENT 

CU SPECIFIES AN CINITIAL) SIZE OR A MAXIMUM 
SIZE, BUT THE CURRENT SIZE OF THE SEGMENT 
(SUM OF THE SIZES OF DATA ALREADY ALLOCATED 
IN THE SEGMENT) IS GREATER THAN THIS 
SPECIFIED SIZE. 


A GLOBAL SEGMENT HAS BEEN DEFINED IN 
TWO CU%S WITH DIFFERENT ATTRIBUTES. 


A JCL "GATE" COMMAND EXISTS FOR A CU 
WHOSE 1ST SEGMENT HAS NO GATE DOUBLE 
WORD PREFIX. 


AN ANTICIPATED PLACEMENT OCCURRED FIRST 
WITH SEG(DEFAULT) ATTRIBUTES CONFLICTING 
WITH THE CURRENT DESCRIPTION. 


THE SIZE SPECIFICATION FOR A HARDWARE 
PROTYPE IS LESS THAN ITS SIZE VALUE IN 
THE DESCRIPTION. 


THE DATA DECLARED IN THE CURRENT CU 

IS ALSO A SYSDEF. THE SYSDEF IS USED 
IN SYSLINK ENVIRONMENT OR IF THE IST 
REFERENCE DID NOT HAVE INITIALIZATIONS# 
ELSE THE SYMDEF IS USED. 


AN INITIALIZATION APPEARS FOR A DATA 
WHEREAS ANOTHER DECLARATION FOR THE 
SAME DATA HAS SAID® DATA CANNOT BE 
INITIALIZED. 


THE DATA DECLARED IN THE CURRENT CU HAS 
ATTRIBUTES DIFFERENT FROM THE ONE SPECI~- 
FIED IN ANOTHER CU FOR THE SAME DATA. 


A CU CONTAINS SEVERAL ENTRY POINTS, SOME 
OF THEM ARE SPECIFIED IN A NOLINK PARAME~ 
TER,OTHERS ARE NOT. THUS SOME REFERENCES 
TQ THIS PROCEDURE STAY UNRESOLVED. 


C-05 


2407 


2409 


2410 


24)1 


2602 


2603 


2604 


(2802 
2803 


2804 


2805 


2806 


2807 


2808 


2809 


2810 


2811 


2812 


3001 


3002 


SUBITEM CANNOT BE LINKED IF A DATA SPECIFIED IN A NOLINK PARAMETER CON- 


ITEM IS NOLINK 
NAME ALSO USED FOR A 
DIFFERENT ENTITY 


THIS CATALOGED ENTITY 
ALREADY EXISTS 


INVALID SHARE LEVEL 
MULTIPLE INITIALIZATION 
FOR PTR 

REALLOC RULES VIOLATION 
UNRESOLVED REFERENCE 


REALLOC RULES VIOLATION 
CATALOGED MATCHING DEF 
IMPROPER MATCHING DEF 


ILLEGAL MATCHING . 
NO SYMDEF SHOULD EXIST 


INVALID MATCHING DEF 


CONFLICT BETWEEN REF-DEF 
ATTRIBUTES 


CONFLICT BETWEEN REF-DEF 
ATTRIBUTES 
CONFLICT BETWEEN REF-DEF 
ATTRIBUTES 


ILLEGAL MATCHING 


A DATA SYMDEF MATCHES A 


NON DATA SYMDEF OR A SYSDEF 
OR A SUBITEM SYMDEF 


NAME ALSO USED FOR A 


DIFFERENT ENTITY 
NO MATCHING DEF 


REALLOC RULES VIOLATION 


TAINS SUBITEM EXTERNALLY KNOWNS 
TO THIS SUBITEM STAY UNRESOLVED. 


REFERENCES 


TYPE 3 SLFICB SEGMENT. 


AN ENTRY VARIABLE IN AN EXTERNAL DATA 
HAS BEEN INITIALIZED IN DIFFERENT CUS 
WITH DIFFERENT VALUES. 


THE REFERENCE MAY BE DYNAMICALLY RESOLVED 
IN A SM. 


USED FOR WANT OF A GLOBAL DATA. 


A REFERENCE TQ DATA LEADS TO 
A PROCEDURE DEFINITION. 


THE CURRENT REFERENCE STATES? SYNDEF 
CANNOT EXIST, BUT A SYMDEF HAS BEEN 
ALREADY FOUND FOR THIS DATA. 


THERE ALREADY EXISTS A DEFINITION FOR 
THIS DATA BUT NO STIN,STE,D VALUE IS ASSO- 
CIATED TQ IT BECAUSE ERROR OCCURRED WHILE 
PROCESSING THE IST DEFINITION. 


A PREVIOUS DECLARATION OF THIS DATA SPECI- 
FIED A DIFFERENT VALUE FOR DATA LENGTH. 


A PREVIOUS DECLARATION FOR THIS DATA SPE- 
FIED A DIFFERENT VALUE FOR DATA ATTRIBU~ 
TES. 


A PREVIOUS DECLARATION FOR THIS DATA SPE~ 
CIFIED A DIFFERENT CONTAINING SEGMENT. 


CONTRADICTION BETWEEN THE CURRENT REFE- 
RENCE SAYING? SYMDEF MIGHT EXIST, AND 
A PREVIOUS REFERENCE (TO THE SAME DATA) 
SAYING SYMDEF CANNOT EXIST. 


FOR INSTANCE,A FORTRAN LABELED COMMON 
SYMDEF MATCHES A SYMDEF THAT DOES NOT 
CORRESPOND TO A BLOCK DATA. 


A REFERENCE IS MADE TO A DEFINITION WHICH 
DOES NOT EXIST IN LIBRARIES. 


3006 


3007 


3008 


3009 


3010 


3401 


3402 


3403 


3404 
3405 


380 | 


3802 


3803 


3804 


CONFLICT BETWEEN REF-DEF 
ATTRIBUTES 


INVALID MATCHING DEF 


CONFLICT BETWEEN REF~DEF 
ATTRIBUTES 


CONFLICT BETWEEN REF -DEF 
ATTRIBUTES 


CONFLICT BETWEEN REF=DEF 
ATTRIBUTES 
IMPROPER MATCHING DEF 


GLOBAL DATA SEGMENT 
OVERFLOW 


INCORRECT CIS NUMBER 


SIZE SPECIFICATI ON(MSEGAT) 
EXCEEDED 

REALLOC RULES VIOLATION 
SIZE INCONSISTENT WITH A 
PREVIOUS DEFINITION 

CROSS REFERENCE LIST HAS 
BEEN ABORTED (OVERFLOW) 


CU REFERENCED IN JCL 
HAS NOT BEEN LINKER 


REFERENCE NEVER OCCURRED 


THIS STATEMENT HAS NOT 
BEEN USED 


REFERENCE TQ) A PROCEDURE WITH A NUMBER 
OF ARGUMENTS DIFFERENT FROM THE NUMBER OF 
PARAMETERS DEFINED IN THE PROCEDURE. 


THE SYMDEF FETCHED HAS NO STN,STE,D VALUE 
ASSIGNED BECAUSE ERROR OCCURRED WHILE 
PROCESSING IT. 


THE DATA LENGTH (FOR DATA) OR 

ARGUMENTS SIZES (FOR PROCEDURES ) 

SPECIFIED IN THE REFERENCE ARE DIFFERENT 
FROM THE ONES SPECIFIED IN THE DEFINITION. 


THE ATTRIBUTES SECIFIED FOR THE DATA 
OR THE ARGUMENTS IN THE REFERENCE ARE 
DIFFERENT FROM THE ONES IN THE DEFINITION. 


A REFERENCE TO DATA LEADS TO A PROCEDURE 
OR A NON CATALOGUED DATA.OR A REFERENCE 
TO PROCEDURE LEADS TO A DATA DEFINITION. 


THE DATA CURRENTLY PROCESSED CANNOT BE 
ENTIRELY STORED IN THE GLOBAL SEGMENT 
EITHER BECAUSE THE DATA SIZE IS GREATER 
THAN THE MAXIMUM SIZE FOR MULTIPLE 
SEGMENTS, OR BECAUSE THE SUM OF SIZES 
QF DATA ALLOCATED IN SEGMENT BECOMES 
GREATER THAN THE LIMIT SIZE FOR NON- 
MULTIPLE SEGMENTS. 


A GLOBAL DATA IS SAID TO BE CONTAINED 
IN A SEGMENT WHICH IS NOT A GLOBAL 
SEGMENT (SEGMENT “TO BE INVENTED" 

BY THE LINKER). 


THE CURRENT SIZE BECOMES GREATER THAN 
THE SIZE SPECIFICATION FOR THIS GLOBAL 
SEGMENT. 


A MAXIMUM SIZE HAS BEEN SPECIFIED WHICH IS 
ALREADY EXCEEDED BY THE CUMULATED SIZES OF 
DATA ALLOCATED IN THE SEGMENT. 


WARNING: THE CROSS REFERENCE LIST 
CAUSED A LINKER TABLE OVERFLOW. 


A CU HAS BEEN REFERENCED IN A JCL STATE- 
MENT BUT THIS CU NEVER APPEARED DURING 
THE LINKAGE PROCESSING (NO REFERENCE TO 
THE PROCEDURE HAS BEEN MADE). 


THE JCL ASKED FOR THE REPLACEMEN’S OF A 
REFERENCE TO A BY A REFERENCE TO B, 
BUT NO REFERENCE TO A APPEARED IN 

THE SCOPE OF REPLACE. 


THE ENTITY INVOLVED IN A PLACE OR 


MSEGAT OR FETCH COMMAND NEVER APPEARED 
DURING THE LINKAGE. 


C-U7 


3805 


4401 


4402 


5201 


5202 


5601 


TASK DEFINITION NEVER 
OCCURRED 


SEG DEFINED ONLY BY PLACE 


STAT. 


ZERO “LENGTH SEGMENT CONTAINS 


DATA 


REFERENCE NOT FOUND IN CU 


MSEGAT/CU. SEG NOT USED 


MORE THAN 9 ERRORS FOR 
THAT ENTITY 


C=08 


THE JCL TOLD ABOUT A TASK BUT HAS NEVER 
DEFINED IT. 


THE JCL ASKED FOR A PLACEMENT IN A 
SEGMENT FOR WHICH NO DESCRIPTION WAS 
FOUND IN ANY CU. 


THE JCL ASKED FOR THE REPLACEMENT OF A 
REFERENCE TO A BY A REFERENCE TO) B IN 
A GIVEN CU, BUT NO REFERENCE TO A 
APPEARED IN THE CU. 


A SEGMENT OF A GIVEN CU REFERENCED IN 
JCL PARAMETERS THRU SEGMENT NAME OR IN- 
TERNAL SEGMENT NUMBER DOES NOT EXIST 

IN CUs OR PARAMETERS THRU GLOBLSEG WERE 
PREFERRED TO. 


THE LINKER ONLY DISPLAYS THE FIRST NINE 
ERRORS DISCOVERED WHEN PROCESSING AN 
ENTITY. 


INDEX 


NOTES Main references are underlined. Entries beginning with 
nonalphabetic characters are classified according to the 
first alphabetic character of each entry. 
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Abnormal compiler termination 2-47 
ACEPT statement ti-tl 

Alphabet 12-06 

Alter facility 2-16.2 

Alter listing 2-28 

ALTERNATE KEYS 9-14 

American Standards Assoc. Format {10-01 
ANSI 74 . 2-10 

APPLY NO-RESIDENT-INDEX clause 9-14 
APPLY NO=SORTED-INDEX clause 9-14 
ASA 10-01 

SASSIGN statement 9-0! 

Asterisk convention 2-06 


B 
Backing store 2-13 
Banner page 3-08 
BFAS 9-13 
BOTTOM {1-06 
C 


CALL IDENTIFIER statement 6-05 
CALL statement 4-06, 6-O1, 6-03 
Called program 6-0] 

Calling program 6-01 

CANCEL statement 6-01, 6-05 
Card identifier 2-06 

Card punching 11-09 

Card reading 11-07 

CARDID parameter 1-05, 2-06 
CASEQ parameter 2-08 

Cassettes 11-17 


i-O| 


Checkpoint/restart 12-05 

CKSEQ parameter 2-08 

CLOSE REEL/UNIT statements 9-09, 9-10 
CLOSE WITH LOCK statement 9-08 
SCOBOL statement 2-Q1] 

COBOL file-name 6-08, 9-01 

COBOL segment number 3-01, 7-02 
CODAPND parameter 2~-U8, 7-06, 7-07 
CODE SET clause 12-07 

COLLATING SEQUENCE phrase 12-07 
COMFILE parameter 2-04, 2-17, 3-04 
Command file 2-16.2 

COMMAND parameter 3-04 
Communications 12-29 

Compilation 2-0] 

COMPILE command 2-17, 2-19 
CONTCHAR parameter 1-07 

Control record 10-02 

COPY statement 2-10, 2-16, 2-29 
Cross-re ference listing 2-09, 2-37, 4-12 
CULIB narameter 2-08 


D 


Data map and proc.def.listiny 2-I1, 2-37, 4-12 
Data types 5-01 

DCARNID narameter 2-06 

DCLXREF parameter 2-09 

DDEBUGMD parameter 2-09 

DEBUG narameter 2-09, 4-02, 4-04 
DEBUG-ITEM 4-0] 

Debuyying code 4-0! 

DEBUGMD parameter 2-09, 4-02 
DECLARATIVE 4-01] 

Device oriented format 1f0-0Ol 
DIAGIN parameter 2-10, 2-11 
Diagnostic 2-34, 3-14 

DISPLAY data items 5-02 

DISPLAY statement Jil-Il, 11-13 
DOF 10-01 

DSEGMAX parameter 2-10, 7-06 
DUMMY parameter ¥-06 

Dump analysis 4-04 

DUMP parameter 4-04 


E 


Edited sysout format 11-02, 11-09, 12-18 
Editor request 2-16.2 

Efficiency 8-0] 

ENTRY command 3-05 

ENTRY parameter 3-03, 6-02 

Epilogue 2-24 

Error message 2-34, 3-14, 4-16 


i-0O2 


EXAMINE statement 12-30 
Exception 4-06 

Exception messaye 4-16 

Execution 4-0! 

EXIT statement 6-01 

Expanded source listing 2-28 
EXPLIST parameter 2-10, 2-29 
External line number 2-33 
EXTERNAL pnrase 6-01, 6-04, 6-U8& 
External-file-name 9-Ol 


File concatenation 912 
File names 9-O1 

File organization 9-04 
FILE SECTION 12-07 

FILE STATUS 9-15 
Fixed-point binary 5-05 
Floating-point binary 5-05 
FOOTING 11-06 

Form control 11-05 
FORTRAN programs 6-06 
FSN narameter 9-1] 


GENERATE statement 12-12 
Group information listing 3-08 


H=2000 9-14 
HFAS 9-13 
HIGH=VALUE 12-09 


I-O-CONTROL paragraph 12-05 

INCLUDE command 3-05 

Included compile units listing 3-08 
INDEX data item 5-06 

Indicator area 1-06 

INFILE parameter 1-10, 2-04 
INITIATE statement 12~12 

INLIB narameter 2-04 

INLTIBn parameter 2-04, 2-16.] 

Input enclosure 1-01 

INSPECT statement 12-30 

Instruction counter 4-10 
Interactive operation facility 1-03 


1-03 


Interactive terminal line format !-10 

Intermediate results sae 26 

Internal line number —-29, 2-33 

Internal segment sinbes Ol ~Ol, 3-I1, 4-11, 4-12, 7-10 
Internal-file-name 6-08, “9-01 

IOF 1-03 


JK 


JCL STATUS 12-03 

Job occurrence report 4-15 

Job occurrence report summary 2-46 
Journalization 12-05 

SJUMP 2-15, 12-03, 12-05 


Language type 1-05, 2-07 

SLET 12-05 

LEVEL parameter 2-10, 2-21 
LEVE] 62 2-22 

LEVEL 64 9-14 

SLIB 2-04, 2-16, 3-02, 3-06 
SLIBALLOC 1-02, 3-02 

SLIBMAINT 1-02, 2- 04, 10-02, 10-06 
Library 2-i6. 

Library member text format 1-07 
Limits 2-21 

LINAGE clause 11-06 
LINE=CQOUNTER 12-11 

Linkage report 3-08 

LINKAGE SECTION 6-01, 6-03 
SLINKER statement 3-01 

SLINKER Segment number 3-0], 4-12 
Linking 3-01 

LIST parameter 2-11 

Listings ($COBOL) 2-24 

Listings (S$LINKER) 3-08 
Load~module-name parameter 3-02 
LOW-VALUE 12-09 


Main program 6-02 

Map listing 2-37 

MAP parameter 2-11 

Maximum data segment size 2-10, 7-06 
Maximum procedure segment size 2-10, 7-06 
$MERGE 12-01 ae 

MERGE statement 12-01, 12-07 

Multi logical unit files 9-09 

Multiple file tape volumes 9-1] 
Multivolume files 9-09 


i-04 


Naming convention 1-01, 3-02 
NCARDID parameter 1-05, 2-06 
NCASEQ parameter 2-08 

NCKSEQ parameter 2-08 
NCLIST parameter 2-11 
NCODAPND parameter 2-08 
NDCLXREF parameter 2-09 
NDEBUG parameter 2-09 
NDEBUGMD parameter 2-09, 4-02 
NDIAGIN parameter 2-10 
NMSXPLIST parameter 2-10 
NLIST parameter 2-11 

NMAP parameter 2-11 

NOBJ parameter 2-11 

NOBSERV parameter 2-11 

NOPT parameter 2-13 

NRESIDX parameter 9-15 

NNARN parameter 2-13 

NXReF parameter 2-15 


OBJ parameter 2-11 

Object code 2-24 
QOBJECT-COMPUTER paragraph 12-07 
OBSERV parameter 2-1] 

ON SIZ ERROR 12-29 

Jptional files 9-04 

OPTIONAL parameter 9-06 
OPTIONS parameter 12-03, 12-10 
ORGANI ZATION clause 9-14 
QUTLIB parameter 3-03 

Output writer 10-07, 11-0! 
Overriding rules 9-02 


PQ 


Packed decimal 5-03 
PAGE-COUNTER 12-11 


PCF 4-03 

Perform/alter bucket listing 2-11, 2-37 
Performance 8-01 

PICTURE clause 5-0] 

SPOOL statement 9-08, 9-10, 9-11, 9-13 
Printed output (S$LINKER) 3-08 

Printed output (SCOBOL) 2-24 

Printing 11-01 

Procedure map listing 2-11, 2-37, 4-11 
Process control block 4-06 

Process control structure 4-05 

Process group control structure 4-05 


y=05 


Program checkout facility 2-09, 4-01, 4-03 


PROGRAM COLLATING SEQ.clause 12-07 
Prologue 2-24 

Protection ring 4-06 

PRIFILE parameter 2-12 

PRTLIB parameter 2-12 

PSEGMAX narameter 2-10, 7-06 
Punched card format 1-05 


R 
Record length 9-03 
Reference format 1-04 
REPEAT parameter 12-05 
REPLACE statement 2-10, 2-29 
Report writer 6-08, 12-11 
Representation of data 5-0} 
RERUN clause 12-05 
RESIDX parameter 9-15 
Return code Y=-15 
Run-time package 12-29 
S 


SARF 10-01 

Search path 2-04, 3-02, 3-06 
SEARCH statement 12-23 
segment 2-08 

Segment list 2-46, 32-I1, 4-11 
Segment number 3-0! 

Segment table entry 4-05 
Segment table number 4-05 
SEGMENT-LIMIT 7-03 
Segmentation 7-01 

Sequence number 1-06, 10-02 
Serial compilation 2-19 
Serial linkage 3-06 

SET statement Il2-20 

Severity value 2-15 

SSORT 12-01 

SORT statement 12-01, 12-07 
SSORTIDX 9-14 

SSORTWORK = -12—02 

source library 1-02 

Source listing 2-28 

SOURCE parameter 2-04, 2-19 
SPECIAL-NAMES paragraph IJ1-11, 11-14, 
Sra 4-11 

SSF 1t0-Q1 

Stack 4-06 

Stack frame 4-10 

Standard access record format 10-0] 
STATUS 2-15 

Ste 4-05, 4-11 


1-4 


12-04, 


12-06 


STEPOPT parameter 2-13, 3-06 


STOP LITERAL statement tl-11, 11-16 
STOP RUN statement 6-02 
Stream reader 1-06, 10-02, 10-06, 11-07 


Structured proyramming 7-03 
SUBOPT parameter 2-3, 8-02 
Subscripts 12-20 

Summary page 2-45 

SUPPRESS statement 12-12 
Swapping 7-0] 

Switches [12-04 

SYMREF 3-08.1 

SYSIN [{-06, 10-02, 10-06, 11-07 
SYSOUT 2-12, 11-01, 11-09 
SSYSOUT 10-07, 11-04, 11-09 
System standard format 10-01 


Table handling 12-20 

Task listing 3-08 

TDS 2-08 

TEMP 2-08 

TERMINATE statement 12-13 

TOP 11-06 

Transaction processing routine 2-08 
TYPE parameter 1-06, 1-08, 10-02 


UFAS 9-13 

UFF 9-14 

Unit record files 11-01 

Unpacked decimal 5-02 

Updating source program 1-04 
SURINIT 11-05 | 

USAGE clause 5-0] 

USE AFTER ERROR PROCEDURE SECTION 9-15 
USE FOR DEBUGGING statement 4-01 
USE statement 12-12 

USING phrase 6-01, 6-03 


VACSEG command 3-05 

Vertical format unit 11-05 
SVOLPREP 11-20 

VFU 13-05 

Virtual memory management 7-0! 


WXYZ. 


W REQUEST 1-U8 

WARN parameter 2-13 
WITH CODE clause 12-18 
WITH DEBUGGING MODE clattse 2-09, 4-02 
WITH SARF phrase 10-04 

WITH SSF phrase 10-04 

WORKN parameter 2-13 
SWRITER 10-07, 11-04, !1-09 
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